更改字符串中的某些字母
编辑： (define leet-helper (lambda (string) (cond [(null? (string->list string)) ""] [(equal? (car string)#\e) (cons 3 (leet-speak (cdr st…
Chicken Scheme 是否有相当于 Perl 的 $0 的东西？
如何可靠地获取ChickenScheme中的脚本名称？ 似乎 -ss 占用了脚本名称，因此除非我使用点斜杠来运行脚本，否则它是不可见的。 scriptedmain.scm： #!/…
在方案中实施深度优先搜索的问题
我试图在方案中实现深度优先搜索，但我只能让它部分工作。 这是我的代码： (define (depth-first-search graph node neighbour path dest) (cond ((nu…
方案中的模式匹配错误
我编写了一个 match-rewriter 函数，它只是 match-lambda ，只不过如果没有找到匹配项，它会返回其参数。 match-rewriter 是一个更大函数的一部分。这…
如何找到方案中列表的中位数
我是计划的新手，我正在使用 Dr.Racket 来尝试找到列表的中位数。 例如，(median 2 1 3) 应返回 2，(median 1 1 5 5 2 3) 应返回 2.5< /代码>。 …
方案：模式匹配中神秘的空洞
我正在编写一个名为 annotate 的函数，它使用 match-lambda —— 通常会递归调用注释。这是模式匹配之一： (`(lambda (,<param1> . ,<params>…
这个函数是什么意思呢？
对于以下函数： (define (update f x v) (λ ($x) (display $x) (newline) (if (equal? $x x) v (f $x)))) 这里的$是什么意思？ $x 从哪里来？ …
