[讨论]：如何将表分段？

陌生人

如何将表分段？
eg
'(1 2 3 4 5 6 "a") -> '((1 2 3)(4 5 6) ("a")) ;n=3
                          -> '((1 2)(3 4)(5 6)("a")) ;n=2
其中("a")也可为("a" nil)格式
要求 分段后子表的元素个数按要求设置.
(defun  divlst ( lst  n / ) ;n为子表元素个数.
....
)

aeo

找找，我贴过n遍了.

不过你应该先贴你自己的，不要老是只提问
让人感觉好象是来捡现成的.

陌生人

最初由 aeo 发布
[B]找找，我贴过n遍了.

不过你应该先贴你自己的，不要老是只提问
[/B]

我觉得提问是个好习惯。当然前提是自己先思考。

让人感觉好象是来捡现成的. [/B]

哈哈，版主说笑了，

第一，来这里就是应该可以拣现成的，你看看这里的帖子，难道不大多是这样么？只不过是先拣还是后拣，或者是我拣别人还是别人拣我的而已，不拣怎么交流提高？(当然拣了之后要自己消化，如果只是拿来用，那当然没有提高) 没提高来这里干嘛？

第二，完成这个程序，我可以用不下3种方法写出来。不过，写完后我想，会不会还有别的更好的方法？

第三，如果我先贴出来了，那帖子的下场可能就是再无人问津了。这没起到应有的效果，因此采取这种提问的方式，也是鼓励大家多思考，这个我觉得没什么不好。

第四，作为vl开发论坛，应该感到缺少的不是程序，而是对编程方法的研究，归纳，对比。在这里，借这个命题（也可以是别的）作为手段，目的是研究编程的思路，函数的用法，我想这个也是本论坛开设的初衷，作为这里版主或是常来的vl开发爱好者，应该提倡，鼓励并身体力行。


如果版主不嫌麻烦的话，不妨把以前自己的帖子连接贴出来，你找总比我找快。

zhynt

这个问题你前面好像问过吧？

陌生人

最初由 zhynt 发布
[B]这个问题你前面好像问过吧？ [/B]

哎呀，不好意思，我找了找，还真问过。
那贴是 http://www.xdcad.net/forum/showthread.php?threadid=128805
我自己也忘了，sorry
aeo的程序不错。上次看的时候还没见贴出来。

2. 
   
3. ;| by －－－－－－－－－－－－－－－aeo
   
4. (defun tt(li n / a return)
   
5.   (while li
   
6.    (setq a(append a(list(car li)))li(cdr li));一个个来
   
7.    (if(=(length a)n)(setq return(cons a return) a nil));满就加入
   
8.   )
   
9. (if a(setq return(cons a return)));没满的加入,不想要这句去掉
   
10. (reverse return)
    
11. )
    

<br /> ;| by －－－－－－－－－－－－－－－aeo<br /> (defun tt(li n / a return)<br />   (while li<br />    (setq a(append a(list(car li)))li(cdr li));一个个来<br />    (if(=(length a)n)(setq return(cons a return) a nil));满就加入<br />   )<br /> (if a(setq return(cons a return)));没满的加入,不想要这句去掉<br /> (reverse return)<br /> )<br />

既然这样，那我就把自己的贴上吧。
这个跟上面的结构类似。小区别是 if 判断的条件，虽然省去while下面的一句，但是效率反不如aeo那样写。

2. 
   
3. ;(xl_div '(1 2 3 4 5 6 7 8 9 10 11) 3) -> ((1 2 3) (4 5 6) (7 8 9) (10 11))
   
4. (defun xl_div (lst nom / nlst1 nlst)
   
5.   (while lst
   
6.     (setq nlst1 (append nlst1 (list (car lst))) lst   (cdr lst))
   
7.     (if (or (= nil lst) (= (length nlst1) nom))
   
8.       (setq  nlst (append nlst (list nlst1)) nlst1 nil)
   
9.     )
   
10.   )nlst
    
11. )
    

<br /> ;(xl_div '(1 2 3 4 5 6 7 8 9 10 11) 3) -> ((1 2 3) (4 5 6) (7 8 9) (10 11))<br /> (defun xl_div (lst nom / nlst1 nlst)<br />   (while lst<br />     (setq nlst1 (append nlst1 (list (car lst))) lst   (cdr lst))<br />     (if (or (= nil lst) (= (length nlst1) nom))<br />       (setq  nlst (append nlst (list nlst1)) nlst1 nil)<br />     )<br />   )nlst<br /> )<br />

用repeat，结构和用while差不多，不过开始可以少做一个判断，效率更高

2. 
   
3. (defun xl_div (lst nom / lst1 nlst)
   
4. (repeat (length lst)
   
5.    (setq lst1 (append lst1 (list (car lst))) lst  (cdr lst))
   
6.    (if (= nom (length lst1))
   
7.      (setq nlst (append nlst (list lst1)) lst1 nil)
   
8.    )
   
9. )(if lst1 (append nlst (list lst1)) nlst)
   
10. )
    

<br /> (defun xl_div (lst nom / lst1 nlst)<br /> (repeat (length lst)<br />    (setq lst1 (append lst1 (list (car lst))) lst  (cdr lst))<br />    (if (= nom (length lst1))<br />      (setq nlst (append nlst (list lst1)) lst1 nil)<br />    )<br /> )(if lst1 (append nlst (list lst1)) nlst)<br /> )<br />

这个是用mapcar:我觉得中间过程罗嗦了些，不知道还有没有更好的办法。

2. 
   
3. (defun xl_div (lst nom / i lst1)
   
4.   (apply 'append (mapcar
   
5.       '(lambda (x)
   
6.          (setq i (if i (1+ i) 1) lst1 (append (if (= 0 (rem (1- i) nom)) nil lst1 ) (list x)))
   
7.          (if (or (= i (length lst))(= 0 (rem i nom)))(list lst1) nil)
   
8.        )lst
   
9. ) ))
   

<br /> (defun xl_div (lst nom / i lst1)<br />   (apply 'append (mapcar<br />       '(lambda (x)<br />          (setq i (if i (1+ i) 1) lst1 (append (if (= 0 (rem (1- i) nom)) nil lst1 ) (list x)))<br />          (if (or (= i (length lst))(= 0 (rem i nom)))(list lst1) nil)<br />        )lst<br /> ) ))<br />

纯粹是想交流一下编程，没用卖弄的意思。

eachy

最初由 陌生人 发布
[B]
哎呀，不好意思，我找了找，还真问过。
那贴是 http://www.xdcad.net/forum/showthread.php?threadid=128805
我自己也... [/B]

养成好习惯，搜到的好文章一起分享
http://xoutside.com/CAD/lisp/lisp_FAQ.htm

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://xoutside.com/CAD/lisp/lisp_FAQ.htm">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

陌生人

谢谢eachy，谁能推荐一个看繁体网页的软件（小巧一点的），那些乱码看着心里不舒服

好像也不是繁体，用了几个网页翻译软件都不行，是韩国的网页？

补充一个

2. 
   
3. (defun xl-div (lst x / lst2)
   
4.   (foreach n lst
   
5.     (if (and  lst2 (/= x (length (car lst2))))   
   
6.         (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
   
7.         (setq lst2 (cons (list n) lst2))
   
8.     )
   
9.   )(reverse lst2)
   
10. )
    

<br /> (defun xl-div (lst x / lst2)<br />   (foreach n lst<br />     (if (and  lst2 (/= x (length (car lst2))))   <br />         (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))<br />         (setq lst2 (cons (list n) lst2))<br />     )<br />   )(reverse lst2)<br /> )<br />