[讨论]：放松一下,出个有关表转换的题目:

陌生人

如何进行数组处理.如
表1 '(x1 x2 x3) 表2'(y1 y2 y3)
转换为 '(x1y1 x1y2 x1y3 x2y1 x2y2 x2y3 x3y1 x3y2 x3y3)
或者依次执行 以上表中每个元素也可以.
x1y1 即(* x1 y1)
谁能用最简洁有效的方法写出来?

zhynt

2. 
   
3. (defun lst_lst (lst1 lst2 / lstn)
   
4.     (foreach n lst1
   
5.     (foreach m lst2
   
6.       (setq a (list n m))
   
7.       (setq lstn (cons a lstn))
   
8.       )
   
9.     )
   
10.   (reverse lstn)
    
11.   )
    

<br /> (defun lst_lst (lst1 lst2 / lstn)<br />     (foreach n lst1<br />     (foreach m lst2<br />       (setq a (list n m))<br />       (setq lstn (cons a lstn))<br />       )<br />     )<br />   (reverse lstn)<br />   )<br />

命令: (load "lst-lst")
LST_LST

命令: (lst_lst '(1 2 3 4) '(2 3 4 5))

((1 2) (1 3) (1 4) (1 5) (2 2) (2 3) (2 4) (2 5) (3 2) (3 3) (3 4) (3 5) (4 2)
(4 3) (4 4) (4 5))

wkai

(setq lstn '())
什么意思？
返回值是nil

zhynt

先设一个空表，可以去掉！

LUCAS

(setq L1 '(1 2 3)
      L2 '(4 5 6)
)
(mapcar '* L1 L2)

陌生人

zhynt 的方法对头.
上贴返回: (4 10 18) 不是要求的结果

aeo

命令: (setq a '(1 2 3)b'(4 5 6))
(4 5 6)

命令: (mapcar '(lambda(x)(mapcar '(lambda(y)(* x y))b))a)
((4 5 6) (8 10 12) (12 15 18))

命令: (apply 'append(mapcar '(lambda(x)(mapcar '(lambda(y)(* x y))b))a))
(4 5 6 8 10 12 12 15 18)

eachy

最初由 aeo 发布
[B]命令: (setq a '(1 2 3)b'(4 5 6))
(4 5 6)

命令: (mapcar '(lambda(x)(mapcar '(lambda(y)(* x y))b))a)
((4 5 6) (8 10 12) (12 15 18))

命令: (apply 'append(mapcar '(lambda(x)(mapcar '(lambda(y)(* x... [/B]

还是两个foreach 少敲几个字符

aeo

(foreach x a(foreach y b (setq li(append li (list(* x y))))))

(apply 'append(mapcar '(lambda(x)(mapcar '(lambda(y)(* x y))b))a))

而中间过程比较常用:
(mapcar '(lambda(x)(mapcar '(lambda(y)(* x y))b))a)

(reverse(foreach x a(foreach y b(setq li(cons(list x y) li))))