新手求助，关于表运算求值的问题

spiderman

我有表1：(1 2 3 4 5 6 7 8 9)
       表2：(2 3  4)
       表1的元素比表2的元素要多，现在想用表2中的元素与表1中对应的元素相乘（2X1  3X2  4X3），然后再与剩下来的元素再次相乘（2X4  3X5  4X6  2X7  3X8  4X9），将运算之后得到的新值赋于表3（2 6 12 8 15 24 14 24 36），程式应该怎么写？

fl202

2. 
   
3. (setq i 0 n 0 b1 (list 1 2 3 4 5 6 7 8 9) b2 (list 2 3 4) b3 '() b4 '())
   
4. (repeat (/ (length b1) (length b2))
   
5.   (setq b4 (append b2 b4))
   
6. )
   
7. (setq b3 (mapcar '* b1 b4))
   
8. (print b3)
   
9. 
   
10. ;or
    
11. 
    
12. 
    
13. (setq i 0 n 0 b1 (list 1 2 3 4 5 6 7 8 9) b2 (list 2 3 4) b3 '())
    
14. (repeat (/ (length b1) (length b2))
    
15.   (setq n 0)
    
16.   (repeat (length b2)
    
17.     (setq b3 (cons (* (nth i b1) (nth n b2)) b3))
    
18.     (setq n (1+ n))
    
19.     (setq i (1+ i))
    
20. )
    
21. )
    
22. (setq b3 (reverse b3))
    
23. (print b3)

<br /> (setq i 0 n 0 b1 (list 1 2 3 4 5 6 7 8 9) b2 (list 2 3 4) b3 '() b4 '())<br /> (repeat (/ (length b1) (length b2))<br />   (setq b4 (append b2 b4)) <br /> )<br /> (setq b3 (mapcar '* b1 b4))<br /> (print b3)<br /> <br /> ;or<br /> <br /> <br /> (setq i 0 n 0 b1 (list 1 2 3 4 5 6 7 8 9) b2 (list 2 3 4) b3 '())<br /> (repeat (/ (length b1) (length b2))<br />   (setq n 0)<br />   (repeat (length b2)<br />     (setq b3 (cons (* (nth i b1) (nth n b2)) b3))<br />     (setq n (1+ n))<br />     (setq i (1+ i))<br /> )<br /> )<br /> (setq b3 (reverse b3))<br /> (print b3)

自贡黄明儒

(setq l1 '(1 2 3 4 5 6 7 8 9))
(setq l2 '(2 3 4))
(setq l3 (append l2 l2 l2))
(mapcar '* l1 l3)

xyp1964

2. ;; (aaa '(1 2 3 4 5 6 7 8 9 10) '(1 2 3 4 5))
   
3. (defun aaa (lst1 lst2 / i n)
   
4.   (setq        i -1
   
5.         n (length lst2)
   
6.   )
   
7.   (mapcar '(lambda (x)
   
8.              (setq i (1+ i))
   
9.              (* x (nth (rem i n) lst2))
   
10.            )
    
11.           lst1
    
12.   )
    
13. )

;; (aaa '(1 2 3 4 5 6 7 8 9 10) '(1 2 3 4 5))<br /> (defun aaa (lst1 lst2 / i n)<br />   (setq        i -1<br />         n (length lst2)<br />   )<br />   (mapcar '(lambda (x)<br />              (setq i (1+ i))<br />              (* x (nth (rem i n) lst2))<br />            )<br />           lst1<br />   )<br /> )

spiderman

谢谢三位大师，但是前面两位大师的程式只有在表1元素个数能被表2元素个数整除时，才能得出正确的结果，如果表1不能被表2整除，就不适用了。xpy1964大师的函数测试通过，对三位大师的热心帮助表示感谢！

spiderman

xyp1964 发表于 2013-10-25 10:12

谢谢xyp1964版主，您写的函数正好符合我的需要。想再请版主帮忙，如果现在再增加一个表3，例如：
表1：(1 2 3 4 5 6 7 8 9 10)
表2：(2 3 4 5 6 7)
表3：(8 9 10)
运算规则是：先还是用表1和表2前两个数对应相乘(1X2  2X3)，然后表1、表2的三个数和表3的三个数对应相乘(3X4X8  4X5X9  5X6X10)，然后表1接下来的数再和表2接下来的数对应相乘(6X7  7X2)，如果表2中的数用完了就从头再循环，然后表1、表2、表3接下来的数再对应相乘(8X3X8  9X4X9  10X5X10)，如此循环……
请教版主，有办法写这样的一个函数吗？

lsjj

你可以重排表嗎?以不變應萬變

spiderman

lsjj 发表于 2013-10-26 07:11
你可以重排表嗎?以不變應萬變

高手可以赐教吗？我刚学LISP不久，对LISP函数还不是很熟练，目前只能用xyp1964版主的函数稍做修改：
(defun aaa (lst1 lst2 lst3 / i n)
  (setq i -1
        n (length lst2)
  )
  (mapcar '(lambda (x)
             (setq i (1+ i))
             (* x (nth (rem i n) lst2) (nth (rem i n) lst3))
           )
           lst1
  )
)
然后把我的表3变化成(1 1 8 9 10 1)，这样就能勉强通过，但这样显然是不科学的，如果表2的个数有变化，那表3也要跟着变，不能算真正解决问题，还请高手们指点迷津。谢谢！

lsjj

不用改xpy1964版主的程序,循環套用即可
axbxc=(axb)xc

spiderman

lsjj 发表于 2013-10-26 13:09
不用改xpy1964版主的程序,循環套用即可
axbxc=(axb)xc

谢谢，如果不修改程序的话，应该行不通，因为三个表两两之间的运算规则不一样，表1和表2是从第1个数开始对应相乘，当表2的数不够时再从第一个数开始循环，直到与表1的个数相等时停止；而表3是与表1、表2的第3个数开始对应相乘，然后再间隔2个数，再与表1、表2的第8个数相乘，如果是(aXb)Xc的话，就变成表3和表2一样，一直在循环了，中间没有隔开两个数。