[活动结束]LISP知识问答第2期--基础篇2-(难度指数:★)

淮上

1. ;|6.按指定长度，分割一个表，成多个小表
   
2. 　格式:(ListSplit1 lst len)
   
3.   lst：要分割的表
   
4. 　len：int 子表长度
   
5.   比如：(ListSplit1 '(0 1 2 3 4 5 6 7 8 9) 3)
   
6.        返回 '((0 1 2) (3 4 5) (6 7 8) (9))
   
7. |;
   
8. (defun ListSplit1(lst len /  nl)
   
9. (while (and lst  (> (length lst) len))
   
10.     (setq nl1 nil)
    
11.     (repeat len
    
12.            (setq nl1 (cons (car lst)  nl1)
    
13.             lst (cdr lst))
    
14.     )
    
15.     (setq nl (cons (reverse nl1) nl))
    
16.   )
    
17.     (reverse (cons lst  nl))
    
18.   )

;|6.按指定长度，分割一个表，成多个小表<br /> 　格式:(ListSplit1 lst len)<br />   lst：要分割的表<br /> 　len：int 子表长度<br />   比如：(ListSplit1 '(0 1 2 3 4 5 6 7 8 9) 3)<br />        返回 '((0 1 2) (3 4 5) (6 7 8) (9)) <br /> |;<br /> (defun ListSplit1(lst len /  nl)<br /> (while (and lst  (> (length lst) len))<br />     (setq nl1 nil)<br />     (repeat len<br />            (setq nl1 (cons (car lst)  nl1)<br />             lst (cdr lst))<br />     )<br />     (setq nl (cons (reverse nl1) nl))<br />   )<br />     (reverse (cons lst  nl))<br />   )

我新手 咱也试试

淮上

1. (defun c:test()
   
2.   (setq date (getvar "cdate"))
   
3.   (setq date2 (read (strcat (substr (rtos date 2 16) 14 2) "." (substr (rtos date 2 16) 16 3))))
   
4.   
   
5.   (repeat 1000000
   
6.    (ListSplit2 '(0 1 2 3 4 5 6 7 8 9) 3)
   
7.   )
   
8.     (setq date3 (getvar "cdate"))
   
9.     (setq date4 (read (strcat (substr (rtos date3 2 16) 14 2) "." (substr (rtos date3 2 16) 16 3))))
   
10.     (strcat "运行时间" (rtos (- date4 date2)2 2) "秒"))

(defun c:test()<br />   (setq date (getvar "cdate"))<br />   (setq date2 (read (strcat (substr (rtos date 2 16) 14 2) "." (substr (rtos date 2 16) 16 3))))<br />   <br />   (repeat 1000000<br />    (ListSplit2 '(0 1 2 3 4 5 6 7 8 9) 3)<br />   )<br />     (setq date3 (getvar "cdate"))<br />     (setq date4 (read (strcat (substr (rtos date3 2 16) 14 2) "." (substr (rtos date3 2 16) 16 3))))<br />     (strcat "运行时间" (rtos (- date4 date2)2 2) "秒"))

测试时间的程序

461045462

来学习了
支持这样的活动，可以让初学者更快成长
谢谢

Lisper

1. ;|6.按指定长度，分割一个表，成多个小表
   
2. 　格式:(ListSplit1 lst len)
   
3.   lst：要分割的表
   
4. 　len：int 子表长度
   
5.   比如：(ListSplit1 '(0 1 2 3 4 5 6 7 8 9) 3)
   
6.        返回 '((0 1 2) (3 4 5) (6 7 8) (9))
   
7. |;
   
8. (defun ListSplit1 (ls len / a r i)
   
9.   (setq i 0)
   
10.   (foreach item ls
    
11.     (setq a (append tmp(list item)))
    
12.     (setq i(1+ i))
    
13.     (if(zerop(rem i len))
    
14.       (setq r(cons tmp r) a nil)
    
15.     )
    
16.   )
    
17.   (if a (setq r(cons tmp r) a nil))
    
18.   (reverse r)
    
19. )
    
20. ;|测试：用淮上的测试程序测试，
    
21. 命令: TEST
    
22. "运行时间16.49秒"|;
    
23. 
    

;|6.按指定长度，分割一个表，成多个小表<br /> 　格式:(ListSplit1 lst len)<br />   lst：要分割的表<br /> 　len：int 子表长度<br />   比如：(ListSplit1 '(0 1 2 3 4 5 6 7 8 9) 3)<br />        返回 '((0 1 2) (3 4 5) (6 7 8) (9)) <br /> |;<br /> (defun ListSplit1 (ls len / a r i)<br />   (setq i 0)<br />   (foreach item ls<br />     (setq a (append tmp(list item)))<br />     (setq i(1+ i))<br />     (if(zerop(rem i len))<br />       (setq r(cons tmp r) a nil)<br />     )<br />   )<br />   (if a (setq r(cons tmp r) a nil))<br />   (reverse r)<br /> )<br /> ;|测试：用淮上的测试程序测试，<br /> 命令: TEST<br /> "运行时间16.49秒"|;<br /> <br />

Lisper

1. ;|5.返回指定图元后的所有图元组成的表
   
2.   格式：(EntNextAll ent)
   
3. 　ent：指定的标志图元
   
4.   返回：图元之后生成的所有图元组成的表．
   
5. 　特别：当ent为nil时返回图中所有的图元组成的表|;
   
6. 
   
7. (defun EntNextAll (ent / ls ent1 rl flag)
   
8.   (if (not ent) (setq ent (entnext) flag t))
   
9.   (while (setq ent1(entnext ent))
   
10.     (setq rl (cons ent1 rl))
    
11.     (setq ent ent1)
    
12.     )
    
13.   (if flag (cons (entnext) (reverse rl)) (reverse rl))
    
14.   )
    

;|5.返回指定图元后的所有图元组成的表<br />   格式：(EntNextAll ent)<br /> 　ent：指定的标志图元<br />   返回：图元之后生成的所有图元组成的表．<br /> 　特别：当ent为nil时返回图中所有的图元组成的表|;<br /> <br /> (defun EntNextAll (ent / ls ent1 rl flag)<br />   (if (not ent) (setq ent (entnext) flag t))<br />   (while (setq ent1(entnext ent))<br />     (setq rl (cons ent1 rl))<br />     (setq ent ent1)<br />     )<br />   (if flag (cons (entnext) (reverse rl)) (reverse rl))<br />   )<br />

露水2

淮上的 测试函数有点问题

飞诗(fsxm)

原装

1. (defun ListSplit1 (lst int / len n nlst tmplst)
   
2.   (repeat (/ (length lst) int)
   
3.     (repeat int
   
4.       (setq tmplst (cons (car lst) tmplst))
   
5.       (setq lst (cdr lst))
   
6.     )
   
7.     (setq nlst (cons (reverse tmplst) nlst))
   
8.     (setq tmplst nil)
   
9.   )
   
10.   (reverse (if lst (cons lst nlst) nlst))
    
11. )

(defun ListSplit1 (lst int / len n nlst tmplst)<br />   (repeat (/ (length lst) int)<br />     (repeat int<br />       (setq tmplst (cons (car lst) tmplst))<br />       (setq lst (cdr lst))<br />     )<br />     (setq nlst (cons (reverse tmplst) nlst))<br />     (setq tmplst nil)<br />   )<br />   (reverse (if lst (cons lst nlst) nlst))<br /> )

露水2

经测试 100万次 表为
(ListSplit1 '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28) 3)
淮上的 "运行时间113.93秒"
lisper 的 "运行时间142.78秒"
飞诗的  "运行时间113.49秒"
当表短时淮上的最快 当表长时飞诗的最快   因为淮上每次都要length

测试运算1次
表为 10万长
淮上的"运行时间16.16秒"
lipser的"运行时间0.67秒"
飞诗的"运行时间0.52秒"

飞诗(fsxm)

俺再来一个！速度更快点的

1. (defun ListSplit1 (lst len / i nlts tmp)
   
2.   (setq i 1)
   
3.   (foreach ite lst
   
4.     (if
   
5. (= i len)
   
6.       (setq i
   
7. 1
   
8. 
   
9.     nlts (cons (reverse (cons ite tmp)) nlts)
   
10. 
    
11.     tmp
    
12. nil
    
13.       )
    
14.       (setq tmp
    
15. (cons ite tmp)
    
16. 
    
17.     i
    
18. (1+ i)
    
19.       )
    
20.     )
    
21.   )
    
22.   (if tmp
    
23.     (reverse (cons (reverse tmp) nlts))
    
24.     (reverse nlts)
    
25.   )
    
26. )
    

(defun ListSplit1 (lst len / i nlts tmp)<br />   (setq i 1)<br />   (foreach ite lst<br />     (if<br /> (= i len)<br />       (setq i<br /> 1<br /> <br />     nlts (cons (reverse (cons ite tmp)) nlts)<br /> <br />     tmp<br /> nil<br />       )<br />       (setq tmp<br /> (cons ite tmp)<br /> <br />     i<br /> (1+ i)<br />       )<br />     )<br />   )<br />   (if tmp<br />     (reverse (cons (reverse tmp) nlts))<br />     (reverse nlts)<br />   )<br /> )<br />

露水2

飞诗(fsxm) 发表于 2011-1-2 20:13
俺再来一个！速度更快点的

飞诗这个最快
其他的大家也做做题目