(list (list 1 2) (list 3 4))=(list 1 2) (list 3 4)

xtdwynij

如标题所示。昨天有朋友发了一个贴子，去了外壳，但是如果是多表呢？如何去了外壳呢？还请师兄们版主们出手！boylisp师兄快到这里来！

newer

也不存在你写的这样的表啊，这是两个表了。

(list 1 2) (list 3 4)

xtdwynij

newer 发表于 2013-7-4 12:05
也不存在你写的这样的表啊，这是两个表了。

(list 1 2) (list 3 4)

版主您好！小白刚开始玩表函数没有多久！我想要得到这样的一个函数 (list (list 1 2) (list 3 4) (list 5 6)) 表的第一个元素相加，第二个元素相加！返回值为：1+3+5 2+4+6 （list 9 12）

Highflybird

xtdwynij 发表于 2013-7-4 12:09
版主您好！小白刚开始玩表函数没有多久！我想要得到这样的一个函数 (list (list 1 2) (list 3 4) (list 5 ...

(apply 'mapcar (cons '+  (list '(1 2) '(3 4) '(5 6))))

xtdwynij

高飞鸟版主可不可以解释一下这句话的意思啊？分开我就看得懂，合在一起我就不懂了！

ayl1004

xtdwynij 发表于 2013-7-4 12:56
高飞鸟版主可不可以解释一下这句话的意思啊？分开我就看得懂，合在一起我就不懂了！

其实和这个形式是一样的
(mapcar '+ (list 1 2) (list 3 4))

xtdwynij

ayl1004 发表于 2013-7-4 13:06
其实和这个形式是一样的
(mapcar '+ (list 1 2) (list 3 4))

像这样的我会用。我就是用(mapcar '+ (list (list 1 2) (list 3 4)))可是不行。所以我才想请教去了最外面的一对括号！

Free-Lancer

(list 1 2) => '(1 2)  (list 3 4) => '(3 4) (list 5 6) => '(5 6)
(list (list 1 2) (list 3 4) (list 5 6)) => (list '(1 2) '(3 4) '(5 6)) => '((1 2) (3 4) (5 6))

ll_j

xtdwynij 发表于 2013-7-4 13:09
像这样的我会用。我就是用(mapcar '+ (list (list 1 2) (list 3 4)))可是不行。所以我才想请教去了最外面 ...

理解Lisp要“从里到外”理解，这句是这样的，先把加号与原来的表构成一个表，返回'(+ (1 2) (3 4)...)，然后再用apply函数把这个表传递给mapcar函数，这里的“传递”可以理解为一个一个地传递（这是apply的特性），于是就变成(mapcar '+ '(1 2) '(3 4) ...)。

ayl1004

xtdwynij 发表于 2013-7-4 13:09
像这样的我会用。我就是用(mapcar '+ (list (list 1 2) (list 3 4)))可是不行。所以我才想请教去了最外面 ...

我再举个例子你就看明白
(+ 1 2 3) ----> (apply '+ (list 1 2 3))
(mapcar '+ (list 1 2) (list 3 4)) ----> (apply 'mapcar (list '+ (list 1 2) (list 3 4)))

xtdwynij

我回去想想！不明白再来！{:soso_e113:} 上班上的好累！

GTJ116600

呵呵，学习，学习。理解起来确实挺费劲呀

xtdwynij

GTJ116600 发表于 2013-7-4 18:05
呵呵，学习，学习。理解起来确实挺费劲呀

多谢鼓劢！LL-J长老的话总是一针见血，还有ayl1004朋友的讲解！我想我回去翻一下帮助就可以了！自从Boylisp师兄起头谈起了这个话题我一直都在学习，呵呵！还是在这里让我感到温暖！这里就是净土啊！