添加两个列表。

robierzo · 发表于 2022-7-6 07:32:45

我需要添加两个列表。在列表2的每个成员中添加一个。结果将是列表3。

(setq lista2 '((0.0 14.127) (10.314 6.634) (6.374 -5.491) (-6.374 -5.491) (-10.314 6.634)))
(setq lista1 '(150.0 200.0))

结果：

copy

lista3 ((150.0 214.127) (160.314 206.634).......(139.686 206.634))

BlackBox · 发表于 2022-7-6 07:39:05

copy


(append (list lista1) lista2)

robierzo · 发表于 2022-7-6 07:45:44

伦德曼，这不对。你必须使用mapcar和lambda。但不知道怎么做

Tharwat · 发表于 2022-7-6 07:52:52

copy


(foreach x lista2 (setq l (cons (list (+ (car x) (car lista1)) (+ (cadr x) (cadr lista1))) l)))
(reverse l)

Lee Mac · 发表于 2022-7-6 07:57:52

copy

(mapcar '(lambda ( a ) (mapcar '+ a lista1)) lista2)

robierzo · 发表于 2022-7-6 08:04:44

O、 K.感谢这三个人。李的选择是我想要的。
当做

BlackBox · 发表于 2022-7-6 08:11:45

尊敬的是，您在原来的帖子中忽略了指定Mapcar和Lambda的要求。

我尽量不建议使用更复杂的函数，因为人们忽略了演示更简单的函数（在本例中为Append）的知识。。。当然，这并不是因为我认为我比其他人知道得多，而是因为这就是我学习的方式。

其次，如果您测试了我发布的代码，您会看到它实现了您在原始帖子中演示的功能（将列表A1附加到列表A2的前面）。
... 我被纠正了。

谢天谢地，鉴于补充标准，其他人已经回答了你的问题。