[求助]高手帮忙一下，这LISP怎么用不了！

cadwzt

这函数怎么不能用？
(mapcar  '(lambda (f) ((mapcar  '(lambda (e r ) (+ e r  )) '(6 5 4)  f))) '( (10 20 30)  (1 2 3) (4 5 6) (7 3 9))))

我有一个表：'( (10 20 30)  (1 2 3) (4 5 6) (7 8 9))
把表中的每项都与表'(6 5 4)相加，即表(10 20 30)中的每个元素分别与表(6 5 4)中的每个元素相加，得到表(16 25 34)，
                                  (1 2 3)与(6 5 4)相加得(7 7 7)
                                                                    (4 5 2)与(6 5 4)相加得(10 10 6 )
                                                                    (7 3 9)与(6 5 4)相加得(13 8 13)
最终结果为'((16 25 34) (7 7 7) (10 10 6 ) (13 8 13))

谢谢！

Andyhon

(mapcar
  '(lambda (f)
     (mapcar '+ f '(6 5 4))
   )
  '((10 20 30) (1 2 3) (4 5 6) (7 3 9))
)

cadwzt

多谢Andyhon，

又学了一招