Lisp SICP car/cdr实践问题

Lisp SICP car/cdr实践问题,lisp,scheme,sicp,Lisp,Scheme,Sicp,我在这里试用SICP的“在线导师”: 我正在考虑以下问题: 假设我们已经进行了评估 形式 仅使用汽车、cdr和 值是给定的列表结构 下面 (1) 1 (23) (三) 我对最后一个有意见。我想出了一种使用反引号和反引号的方法,但是在线教程不会接受这个答案。使用chicken scheme的解释器: #;3> (define nil '()) #;4> (define thing (cons (cons (cons 1 nil) nil) --->

我在这里试用SICP的“在线导师”:

我正在考虑以下问题:

假设我们已经进行了评估 形式

仅使用汽车、cdr和 值是给定的列表结构 下面

(1)
1
(23)
(三)

我对最后一个有意见。我想出了一种使用反引号和反引号的方法,但是在线教程不会接受这个答案。使用chicken scheme的解释器:

#;3> (define nil '())
#;4>  (define thing (cons (cons (cons 1 nil) nil)
--->                         (cons (cons 2 (cons 3 (cons 4 nil)))
--->                               (cons 2
--->                                    (cons 3 nil)))))
#;5> 
#;5> thing
(((1)) (2 3 4) 2 3)

#;25> `(,(car(cdr(car(cdr thing)))))
(3)

还有别的办法吗?

看起来我只是在装傻。这很好:

(cdr(cdr(cdr thing)))

如果有版主看到这个,请关闭它。无需关闭,可以接受自答问题:)这看起来是一个很棒的网站,我正在尝试开始使用sicp,我刚刚注册。干杯
(cdr(cdr(cdr thing)))