计划中的连接

Question

我有以下代码：

(define rest '(((di (a) (b c)) (sh (b) (e d))) ((al (a) (b)))))
(define first '((di (a) (5)) (sh (b) (3))))

我想得到以下列表：

(((di (a) (5)) (sh (b) (3))) ((di (a) (b c)) (sh (b) (e d))) ((al (a) (b)))))

意思是， first添加列表，成为休息的第一个元素。

当我append ，它给了我：

((di (a) (5)) (sh (b) (3)) ((di (a) (b c)) (sh (b) (e d))) ((al (a) (b))))

而我尝试做的任何其他库函数或函数都没有帮助。

谢谢。

Answer 1

Append采用两个列表并将它们放在一起。 鉴于你有first和rest ，你可能想要cons 。 Cons需要一个元素并将其添加到列表中。 在这种情况下，元素是first ，列表是rest 。 所以你想要类似的东西

(cons first rest)

Answer 2

使用first和rest作为列表的名称并不是一个好主意，因为它们是某些版本的scheme（例如Racket）中的预定义过程，并且您将重新定义它们。

一个简单的cons就是诀窍，如下所示：

(define fst '((di (a) (5)) (sh (b) (3))))
(define rst '(((di (a) (b c)) (sh (b) (e d))) ((al (a) (b)))))

(cons fst rst)
> (((di (a) (5)) (sh (b) (3))) ((di (a) (b c)) (sh (b) (e d))) ((al (a) (b))))

它的工作原理是因为你想要获得的列表只是rst但是在开头有一个新元素fst （一个列表），而当你想在另一个列表的末尾添加一个列表的元素时通常会使用append 。