方案 - 不带外括号的 cdr

Question

考虑这个列表:((3 (1 (2 15) (8 5))) (1 10))，我想得到它的头部和 body 。正如我想象的那样，程序“汽车”在这里工作:(car '((3 (1 (2 15) (8 5))) (1 10))) - 返回它的第一项(列表)

(3 (1 (2 15) (8 5)))

但是过程“cdr:返回包含另一个列表的列表......(cdr '((3 (1 (2 15) (8 5))) (1 10)))

((1 10))

我想用 (1 10) 代替它。 Scheme 是否有一些程序或者您知道一些方法来实现它(比如检查前两个字符和最后两个字符是否是括号)？

谢谢大家:)

Answer 1

基本上你有 car, cadr, caddr, ... 来获取第一个、第二个、第三个元素，...

列表是一个链表，其中 cons 在 car 中有一个值，而列表的其余部分在 cdr 中。 '(a b c d) 与 '(a . (b . (c . (d)))) 相同，您可以使用 (cons a (cons b (cons c (cons d '()))))。 cdr 是 (b . (c . (d))) 而 car 又是 b。因此 (car (cdr '(a . (b . (c . (d)))))) 是 b。 Scheme 已对 2..5 进行了缩写，因此您只需查看中间的字符即可知道它与 (cadr '(a . (b . (c . (d)))))