方案中的 car 和 cdr 让我发疯
我遇到了 car 和 cdr 函数的问题 例如， ：首先我定义了一个名为 x 的列表 (define x (a (bc) d ( (ef) g ) )) ，所以 x 现在等于 (a (bc ) d ( (ef) …
成员的函数定义是什么？
(define (member atom list) (cond ((null? list) '()) (= atom (car list) "True") (else (member atom(cdr list))) ) ) (member '5 '(1 2 3 4 5)) …
阴阳拼图是如何运作的？
我试图掌握Scheme中call/cc的语义，关于延续的维基百科页面以阴阳谜题为例： (let* ((yin ((lambda (cc) (display #\@) cc) (call-with-current-conti…
从Scheme中的定义类型对象中提取字段
我正在尝试从以下对象中提取字段“name”或“named-expr”：( bind 'x (num 5)) 请注意，这不是一个列表，而是一个类型 Binding ，其 Binding 定义为…
如何解决Scheme中的N皇后问题？
我陷入了扩展 练习 28.2如何设计程序。我使用真值或假值向量来表示棋盘，而不是使用列表。这是我所得到的，但不起作用： #lang Scheme (define-struct…
如何改进该算法 (LCS)
(define (lcs lst1 lst2) (define (except-last-pair list) (if (pair? (cdr list)) (cons (car list) (except-last-pair (cdr list))) '())) (defin…
