我正在研究一个guile方案中的语言翻译器,并且需要处理基本情况,你试图转换单个单词.
(define var 5)
(translate var)
这应该返回字符串var而不是数字5.
如何使用R5RS Scheme宏(define-syntax样式)执行此操作？
编辑:
我正在从Scheme转换为Coffeescript.
我试图看一下r7rs的状态,但我在计划报告页面等中找不到任何信息,只是2013年的一次演讲.我搜索谷歌也没有成功.
谢谢.
我试图弄清楚如何使用狡猾的方案从文件中读取一行。
当我要求它“读取端口”或“读取字符端口”时，它成功读取。
guile -c '(let ((port (open-input-file "foo.txt"))) (display (read port)) (newline) (close-port port))'
但是，当我要求它读取行时，它失败了。
guile -c '(let ((port (open-input-file "foo.txt"))) (display (read-line port)) (newline) (close-port port))'
有谁知道我做错了什么？我当前位于 foo.txt 所在的目录中。
我对 guile 和 schema 很陌生，我现在想做的是获取一个 schema 文件（file.scm）并将其加载到一个变量中，这样我就能够解析它，但我很难找到如何随时随地执行此操作。
我现在拥有的是
(define var (load "file.scm")) ; loads file scheme
但我不确定如何开始阅读这些台词。
作为学习 call/cc 和宏的练习，我尝试定义 goto。
(define-syntax label
(syntax-rules ()
((_ name)
(begin
(define name)
(call/cc (lambda (c) (set! name c)))))))
(define (goto label) (label))
(define i 0)
(label start)
(display i) (newline)
(set! i (+ i 1))
(if (< i 3) (goto start))
(display "done") (newline)
它适用于 guile-2.0，但在 chez 方案和球拍（r6rs）中它只打印
0
done
哪个实现是正确的？
存在称为meep的电磁模拟器,其以诡计解释器的形式提供作为前端.模拟器由一堆方案宏组成.
我试图找出以下错误的含义.代码来自教程.当我在一个过程中包装教程时,我得到一个运行时错误,我不确定解释器(guile)告诉我什么.
不工作的代码
(define diffthick
(lambda (n) ; n doesn nothing
(
(set! geometry-lattice (make lattice (size 16 8 no-size)))
(set! geometry (list
(make block (center 0 0) (size infinity 1 infinity)
(material (make dielectric (epsilon 12))))))
(set! sources (list
(make source
(src (make continuous-src (frequency 0.15)))
(component Ez)
(center -7 0))))
(set! pml-layers (list (make pml (thickness 1.0))))
(set! resolution 10)
(run-until 200
(at-beginning output-epsilon)
(at-end output-efield-z))
)
)
)
(diffthick 3)
工作守则(无程序)
(set! geometry-lattice (make lattice (size 16 …我有一个返回值列表的函数.其中一些值可能是空列表本身,而有些则不是.但是,在每个列表的末尾,都存在一个#<unspecified>值.我知道当函数没有返回任何内容时会返回此值.
我想修剪此值以及其他空列表.
我的清单是这样的:
(() () MD- MC+. #<unspecified>)
我打算将过滤功能应用于此列表.我将要应用的标准是null?.
但是,当这个应用于该#<unspecified>值时,它会给我错误.如何#<unspecified>从列表中删除值？
应用过滤函数后,此列表的输出应为:
(MD- MC+)
我该怎么做呢？
让我看看我的代码
代码1:
(eqv? 'lambda 'quote)
返回 #f
代码2:
(case 'lambda ('quote "equal") (else "not equal"))
返回"not equal"但生成警告;;; <stdin>:17:0: warning: duplicate datum quote in clause ((quote quote) "equal") of case expression (case (quote lambda) ((quote quote) "equal") (else "not equal"))
Code3:奇怪的结果
(case 'quote ('lambda "equal"))
返回"equal",没有警告
我使用了解释代码guile (GNU Guile) 2.0.11.以下是gnucase语法的描述
使用eqv将评估结果与所有基准进行比较？
在 Emacs Lisp 中，如果绑定到某个值，则(boundp 'symbol)返回，否则返回。Guile Scheme 中是否有等效的程序？tsymbolnil
在 Guile 的 REPL 中，提示是scheme@(guile-user)>，但我希望它显示my-name@hostname(current-working-directory)>. 有没有办法做到这一点？
通常在终端（或我以前使用过的任何其他命令提示符）中，我会按向上键来获取最后输入的命令。然而，当在guile解释器中这样做时，我只是得到：
scheme@(guile-user) [1]> ^[[A
获取 guile 中最后输入的命令的最简单方法是什么？
搜了也没找到，有什么define*诡计吗？例如，您可以在此答案中找到它/sf/answers/1687118961/
I want to implement cond (using lisp macros in guile) with if, this my attempt:
(define-macro (cond . clauses)
(if (pair? clauses)
(let ((first (car clauses)) (rest (cdr clauses)))
`(if ,(car first)
(begin
,@(cdr first))
,(if (equal? (caar rest) 'else)
',(cadr rest)
`(cond ,rest))))))
but it don't work, when I call it with this code:
(cond ((= 1 0) (display "hello"))
((= 1 1) (display "world"))
(else
(display "foo")))
I got this error:
ERROR: In procedure car: Wrong type argument …