矩阵表问题？

chlh_jd

赞成HIFLY兄的意见，矩阵用LISP求解虽然效率不差，但是经常遇到精度问题，简易程序可以采用，大型程序不推荐。

2. ;;;将表a中元素按b个元素组成一个子表，返回总表;递归写法大表时效率较低
   
3. ;;;By GSLS(SS)
   
4. (defun list-comp (a b / mid rslt)
   
5.     (repeat (/ (length a) b)
   
6.       (setq mid nil)
   
7.       (repeat b
   
8.         (setq mid (cons (car a) mid)
   
9.               a          (cdr a)
   
10.         )
    
11.       )
    
12.       (setq rslt (cons (reverse mid) rslt))
    
13.     )
    
14.   (if a (reverse (cons a rslt))
    
15.     (reverse rslt))
    
16.   )

;;;将表a中元素按b个元素组成一个子表，返回总表;递归写法大表时效率较低<br /> ;;;By GSLS(SS)<br /> (defun list-comp (a b / mid rslt)<br />     (repeat (/ (length a) b)<br />       (setq mid nil)<br />       (repeat b<br />         (setq mid (cons (car a) mid)<br />               a          (cdr a)<br />         )<br />       )<br />       (setq rslt (cons (reverse mid) rslt))<br />     )<br />   (if a (reverse (cons a rslt))<br />     (reverse rslt))<br />   )

tm20038175

回复 chlh_jd 的帖子

好！。。。。
我本来想用nth的方法解决的，但是代码很长，总感觉不是很好，你的程序简单精炼，感谢呀。。。。
以后有什么想法我最好能多思考思考，不能在这么急性子了，呵呵……