学习 lisp 递归

lanjqka

2. ;|
   
3. _$$$$$$$$ (3dp->2dp '(0 1 2))
   
4. (0 1)
   
5. |;
   
6. (defun 3dp->2dp (plst)
   
7.   (if (null (cadr plst))
   
8.     nil
   
9.     (list (car plst) (cadr plst))
   
10.   )
    
11. )
    
12. 
    
13. ;|
    
14. _$$$$$$$$ (3dpl->2dpl '((0 1 2)(3 4 5)(6 7 8)))
    
15. ((0 1) (3 4) (6 7))
    
16. |;
    
17. (defun 3dpl->2dpl (plst) (mapcar '3dp->2dp plst))
    
18. (defun 3dpl->2dpl2 (plst)
    
19.   (if (null plst)
    
20.     nil
    
21.     (cons (3dp->2dp (car plst)) (3dpl->2dpl2 (cdr plst)))
    
22.   )
    
23. )
    
24. 
    
25. ;| 简单比对一下 3dpl->2dpl 与 3dpl->2dpl2 运行时间 相差不大
    
26. _$$$$$$$$ (calrpt 100000 '3DPL->2DPL2)
    
27. (repeat 100000 (3DPL->2DPL2 'arglst))
    
28. 运行时间: 0.639988 s.
    
29. _$$$$$$$$ (calrpt 100000 '3DPL->2DPL)
    
30. (repeat 100000 (3DPL->2DPL 'arglst))
    
31. 运行时间: 0.670002 s.
    
32. _$$$$$$$$ (calrpt 1000000 '3DPL->2DPL2)
    
33. (repeat 1000000 (3DPL->2DPL2 'arglst))
    
34. 运行时间: 6.364 s.
    
35. _$$$$$$$$ (calrpt 1000000 '3DPL->2DPL)
    
36. (repeat 1000000 (3DPL->2DPL 'arglst))
    
37. 运行时间: 6.39602 s.
    
38. |;
    
39. 
    
40. ;|
    
41. _$$$$$$$$ (-sub-cons-s '(0 1 2 3 4 5 6) 3)
    
42. ((0 1 2) (3 4 5))
    
43. |;
    
44. (defun -sub-cons-s (lst n)
    
45.   (if (null lst)
    
46.     nil
    
47.     (if (< (length lst) n)
    
48.       nil
    
49.       (cons (ntha n lst) (-sub-cons-s (nthbc n lst) n))
    
50.     )
    
51.   )
    
52. )
    
53. 
    
54. ;|
    
55. _$$$$$$$$ (consn 10)
    
56. (0 1 2 3 4 5 6 7 8 9 10)
    
57. |;
    
58. (defun consn (i)
    
59.   (if (< i 0)
    
60.     nil
    
61.     (append (consn (- i 1)) (list i))
    
62.   )
    
63. )
    
64. 
    
65. (defun calrpt (n fun / tst tend)
    
66.   (setq arglist (-sub-cons-s (consn 1001) 3))
    
67.   (setq tst (getvar "DATE"))
    
68.   (repeat n (vl-catch-all-apply fun arglst))
    
69.   (setq tend (getvar "DATE"))
    
70.   (mapcar 'princ
    
71.           (list "(repeat "
    
72.                 n
    
73.                 " ("
    
74.                 fun
    
75.                 " '"
    
76.                 "arglst"
    
77.                 "))"
    
78.                 "\n运行时间: "
    
79.                 (* (- tend tst) 86400.0)
    
80.                 " s.\n"
    
81.           )
    
82.   )
    
83.   (princ)
    
84. )

;|<br /> _$$$$$$$$ (3dp->2dp '(0 1 2))<br /> (0 1)<br /> |;<br /> (defun 3dp->2dp (plst)<br />   (if (null (cadr plst))<br />     nil<br />     (list (car plst) (cadr plst))<br />   )<br /> )<br /> <br /> ;|<br /> _$$$$$$$$ (3dpl->2dpl '((0 1 2)(3 4 5)(6 7 8)))<br /> ((0 1) (3 4) (6 7))<br /> |;<br /> (defun 3dpl->2dpl (plst) (mapcar '3dp->2dp plst))<br /> (defun 3dpl->2dpl2 (plst)<br />   (if (null plst)<br />     nil<br />     (cons (3dp->2dp (car plst)) (3dpl->2dpl2 (cdr plst)))<br />   )<br /> )<br /> <br /> ;| 简单比对一下 3dpl->2dpl 与 3dpl->2dpl2 运行时间 相差不大<br /> _$$$$$$$$ (calrpt 100000 '3DPL->2DPL2)<br /> (repeat 100000 (3DPL->2DPL2 'arglst))<br /> 运行时间: 0.639988 s.<br /> _$$$$$$$$ (calrpt 100000 '3DPL->2DPL)<br /> (repeat 100000 (3DPL->2DPL 'arglst))<br /> 运行时间: 0.670002 s.<br /> _$$$$$$$$ (calrpt 1000000 '3DPL->2DPL2)<br /> (repeat 1000000 (3DPL->2DPL2 'arglst))<br /> 运行时间: 6.364 s.<br /> _$$$$$$$$ (calrpt 1000000 '3DPL->2DPL)<br /> (repeat 1000000 (3DPL->2DPL 'arglst))<br /> 运行时间: 6.39602 s.<br /> |;<br /> <br /> ;|<br /> _$$$$$$$$ (-sub-cons-s '(0 1 2 3 4 5 6) 3)<br /> ((0 1 2) (3 4 5))<br /> |;<br /> (defun -sub-cons-s (lst n)<br />   (if (null lst)<br />     nil<br />     (if (< (length lst) n)<br />       nil<br />       (cons (ntha n lst) (-sub-cons-s (nthbc n lst) n))<br />     )<br />   )<br /> )<br /> <br /> ;|<br /> _$$$$$$$$ (consn 10)<br /> (0 1 2 3 4 5 6 7 8 9 10)<br /> |;<br /> (defun consn (i)<br />   (if (< i 0)<br />     nil<br />     (append (consn (- i 1)) (list i))<br />   )<br /> )<br /> <br /> (defun calrpt (n fun / tst tend)<br />   (setq arglist (-sub-cons-s (consn 1001) 3))<br />   (setq tst (getvar "DATE"))<br />   (repeat n (vl-catch-all-apply fun arglst))<br />   (setq tend (getvar "DATE"))<br />   (mapcar 'princ<br />           (list "(repeat "<br />                 n<br />                 " ("<br />                 fun<br />                 " '"<br />                 "arglst"<br />                 "))"<br />                 "\n运行时间: "<br />                 (* (- tend tst) 86400.0)<br />                 " s.\n"<br />           )<br />   )<br />   (princ)<br /> )

lanjqka

2. ;|
   
3. _$$ (cons0 10)
   
4. (1 0 0 0 0 0 0 0 0 0 0)
   
5. |;
   
6. (defun cons0 (i)
   
7.   (if (zerop i)
   
8.     (list 1)
   
9.     (append (cons0 (- i 1)) (list 0))
   
10.   )
    
11. )
    
12. 
    
13. ;|
    
14. _$$ (Divide (cons0 100) 997)
    
15. (0 1003 9027 81243 731193 580742 ...
    
16. |;
    
17. (defun Divide (xlist d / n v r g a)
    
18.   (setq n 0
    
19.         r 0
    
20.         a nil
    
21.   )
    
22.   (repeat (length xlist)
    
23.     (setq v (+ (nth n xlist) (* r 1000000)))
    
24.     (setq g (/ v d))
    
25.     (setq r (rem v d))
    
26.     (setq a (append a (list g)))
    
27.     (setq n (1+ n))
    
28.   )
    
29.   a
    
30. )
    
31. 
    
32. ;|
    
33. _$$ (div! 1 997 600)
    
34. (0 1003 9027 81243 731193 580742 ...
    
35. |;
    
36. (defun div! (n d i / j k)
    
37. ;|(setq k (ascii "+"))
    
38.   (defun f1 (str)
    
39.     (if (= (ascii str) k)
    
40.       (substr str 2)
    
41.       (f1 (substr str 2))
    
42.     )
    
43.   )
    
44.   (setq j (atoi (f1 (rtos (/ (expt 2 30) d) 1 0))))
    
45.   |;
    
46.   (setq j 6)
    
47.   (defun f3 (n i)
    
48.     (if (zerop i)
    
49.       nil
    
50.       (cons (/ n d) (f3 (* (rem n d) (expt 10 j)) (- i 1)))
    
51.     )
    
52.   )
    
53.   (f3 n (+ (fix (/ i j)) 2))
    
54. )
    
55. 
    
56. ;| 1/997 = 0.001003009027...
    
57. _$$ (calrpt 100000 'Divide '((1 0 0 0 0 0 0 0 0 0 0) 997))
    
58. (repeat 100000 (DIVIDE '((1 0 0 0 0 0 0 0 0 0 0) 997)))
    
59. 运行时间: 2.762 s.
    
60. 单次运行结果：(0 1003 9027 81243 731193 580742 226680 40120 361083 249749 247743)
    
61. _$$ (calrpt 100000 'div! '(1 997 55))
    
62. (repeat 100000 (DIV! '(1 997 55)))
    
63. 运行时间: 1.52898 s.
    
64. 单次运行结果：(0 1003 9027 81243 731193 580742 226680 40120 361083 249749 247743)
    
65. _$$ (calrpt 10000 'Divide (list cons0100 997))
    
66. (repeat 10000 (DIVIDE '((1 0 0 0 0 0 0 0 0 0 0 ...
    
67. 运行时间: 3.541 s.
    
68. 单次运行结果：(0 1003 9027 81243 731193 ...
    
69. _$$ (calrpt 10000 'div! '(1 997 600))
    
70. (repeat 10000 (DIV! '(1 997 600)))
    
71. 运行时间: 1.12299 s.
    
72. 单次运行结果：(0 1003 9027 81243 731193 ...
    
73. |;
    
74. (defun calrpt (n fun arglst / tst tend)  
    
75.   (setq tst (getvar "DATE"))
    
76.   (repeat n (vl-catch-all-apply fun arglst))
    
77.   (setq tend (getvar "DATE"))
    
78.   (mapcar 'princ
    
79.           (list "(repeat "
    
80.                 n
    
81.                 " ("
    
82.                 fun
    
83.                 " '"
    
84.                 arglst
    
85.                 "))"
    
86.                 "\n运行时间: "
    
87.                 (* (- tend tst) 86400.0)
    
88.                 " s.\n单次运行结果："
    
89.           )
    
90.   )
    
91.   (princ (vl-catch-all-apply fun arglst))
    
92.   (princ)
    
93. )

;|<br /> _$$ (cons0 10)<br /> (1 0 0 0 0 0 0 0 0 0 0)<br /> |;<br /> (defun cons0 (i)<br />   (if (zerop i)<br />     (list 1)<br />     (append (cons0 (- i 1)) (list 0))<br />   )<br /> )<br /> <br /> ;|<br /> _$$ (Divide (cons0 100) 997)<br /> (0 1003 9027 81243 731193 580742 ...<br /> |;<br /> (defun Divide (xlist d / n v r g a)<br />   (setq n 0<br />         r 0<br />         a nil<br />   )<br />   (repeat (length xlist)<br />     (setq v (+ (nth n xlist) (* r 1000000)))<br />     (setq g (/ v d))<br />     (setq r (rem v d))<br />     (setq a (append a (list g)))<br />     (setq n (1+ n))<br />   )<br />   a<br /> )<br /> <br /> ;|<br /> _$$ (div! 1 997 600)<br /> (0 1003 9027 81243 731193 580742 ...<br /> |;<br /> (defun div! (n d i / j k)<br /> ;|(setq k (ascii "+"))<br />   (defun f1 (str)<br />     (if (= (ascii str) k)<br />       (substr str 2)<br />       (f1 (substr str 2))<br />     )<br />   )<br />   (setq j (atoi (f1 (rtos (/ (expt 2 30) d) 1 0))))<br />   |;<br />   (setq j 6)<br />   (defun f3 (n i)<br />     (if (zerop i)<br />       nil<br />       (cons (/ n d) (f3 (* (rem n d) (expt 10 j)) (- i 1)))<br />     )<br />   )<br />   (f3 n (+ (fix (/ i j)) 2))<br /> )<br /> <br /> ;| 1/997 = 0.001003009027...<br /> _$$ (calrpt 100000 'Divide '((1 0 0 0 0 0 0 0 0 0 0) 997))<br /> (repeat 100000 (DIVIDE '((1 0 0 0 0 0 0 0 0 0 0) 997)))<br /> 运行时间: 2.762 s.<br /> 单次运行结果：(0 1003 9027 81243 731193 580742 226680 40120 361083 249749 247743)<br /> _$$ (calrpt 100000 'div! '(1 997 55))<br /> (repeat 100000 (DIV! '(1 997 55)))<br /> 运行时间: 1.52898 s.<br /> 单次运行结果：(0 1003 9027 81243 731193 580742 226680 40120 361083 249749 247743)<br /> _$$ (calrpt 10000 'Divide (list cons0100 997))<br /> (repeat 10000 (DIVIDE '((1 0 0 0 0 0 0 0 0 0 0 ...<br /> 运行时间: 3.541 s.<br /> 单次运行结果：(0 1003 9027 81243 731193 ...<br /> _$$ (calrpt 10000 'div! '(1 997 600))<br /> (repeat 10000 (DIV! '(1 997 600)))<br /> 运行时间: 1.12299 s.<br /> 单次运行结果：(0 1003 9027 81243 731193 ...<br /> |;<br /> (defun calrpt (n fun arglst / tst tend)  <br />   (setq tst (getvar "DATE"))<br />   (repeat n (vl-catch-all-apply fun arglst))<br />   (setq tend (getvar "DATE"))<br />   (mapcar 'princ<br />           (list "(repeat "<br />                 n<br />                 " ("<br />                 fun<br />                 " '"<br />                 arglst<br />                 "))"<br />                 "\n运行时间: "<br />                 (* (- tend tst) 86400.0)<br />                 " s.\n单次运行结果："<br />           )<br />   )<br />   (princ (vl-catch-all-apply fun arglst))<br />   (princ)<br /> )

lanjqka

上面的例子
计算1/997高精度结果
对长表进行循环处理 的时间要比 用递归构造长表 的时间 多
特别是表比较长时

q3_2006

lanjqka 发表于 2014-1-21 13:48
上面的例子
计算1/997高精度结果
对长表进行循环处理 的时间要比 用递归构造长表 的时间 多

"1.1.1.1"
返回("1.1" "0.1" "0.1")用递归怎么写??拜托指点下,谢谢!

(defun sstr (str n)
(if (= n 0)
    nil
    (cons (rtos (atof str)) (sstr (substr str (1+ (strlen (rtos (atof str))))) (1- n)))
  )
)
(sstr str 3)-->>("1.1" "0.1" "1")
为什么这样....不知道原因呀...???

lanjqka

q3_2006 发表于 2014-1-30 18:37
"1.1.1.1"
返回("1.1" "0.1" "0.1")用递归怎么写??拜托指点下,谢谢!

是不是这样 在首字符为"."时加一个前导0

2. ;|
   
3. _$$ (sstr "1.1 .1 .1")
   
4. ("1.1" "0.1" "0.1")
   
5. |;
   
6. (defun sstr (str / n)
   
7.   (setq str (vl-string-trim " " str))
   
8.   (if (= (ascii str) (ascii "."))
   
9.     (setq str (strcat "0" str))
   
10.   )
    
11.   (setq n (vl-string-search " " str))
    
12.   (if (= str "")
    
13.     nil
    
14.     (cons (substr str 1 n) (if n (sstr (substr str (+ n 1)))))
    
15.   )
    
16. )

;|<br /> _$$ (sstr "1.1 .1 .1")<br /> ("1.1" "0.1" "0.1")<br /> |;<br /> (defun sstr (str / n)<br />   (setq str (vl-string-trim " " str))<br />   (if (= (ascii str) (ascii "."))<br />     (setq str (strcat "0" str))<br />   )<br />   (setq n (vl-string-search " " str))<br />   (if (= str "")<br />     nil<br />     (cons (substr str 1 n) (if n (sstr (substr str (+ n 1)))))<br />   )<br /> )

q3_2006

lanjqka 发表于 2014-2-11 13:33
是不是这样 在首字符为"."时加一个前导0

是的是的。。。。谢谢指导！

q3_2006

lanjqka 发表于 2014-2-11 13:33
是不是这样 在首字符为"."时加一个前导0

也不对。。。。.1前面没有空格的。。。。是拆分数字问题。。。

lanjqka

应该是 rtos 的原因
(rtos number [mode [precision]])

2. ;|
   
3. _$$$$ (sstr "1.1.1.1" 3)
   
4. ("1.1" "0.1" "0.1")
   
5. |;
   
6. (defun sstr (str n / tmp)
   
7.   (if (zerop n)
   
8.     nil
   
9.     (append (list (setq tmp (rtos (atof str) 2 1)))
   
10.           (sstr (strcat "0" (substr str (+ (strlen tmp) 1))) (- n 1))
    
11.     )
    
12.   )
    
13. )
    

;|<br /> _$$$$ (sstr "1.1.1.1" 3)<br /> ("1.1" "0.1" "0.1")<br /> |;<br /> (defun sstr (str n / tmp)<br />   (if (zerop n)<br />     nil<br />     (append (list (setq tmp (rtos (atof str) 2 1)))<br />           (sstr (strcat "0" (substr str (+ (strlen tmp) 1))) (- n 1))<br />     )<br />   )<br /> )<br />

lanjqka

q3_2006 发表于 2014-2-11 14:13
也不对。。。。.1前面没有空格的。。。。是拆分数字问题。。。

2. ;|
   
3. _$$ (sstr "1.1.1.1")
   
4. ("1.1" "0.1" "0.1")
   
5. |;
   
6. (defun sstr (str / n)
   
7.   (setq str (vl-string-trim " " str))
   
8.   (if (= (ascii str) (ascii "."))
   
9.     (setq str (strcat "0" str))
   
10.   )
    
11.   (setq n (vl-string-search "." str 2))
    
12.   (if (= str "")
    
13.     nil
    
14.     (cons (substr str 1 n) (if n (sstr (substr str (+ n 1)))))
    
15.   )
    
16. )

;|<br /> _$$ (sstr "1.1.1.1")<br /> ("1.1" "0.1" "0.1")<br /> |;<br /> (defun sstr (str / n)<br />   (setq str (vl-string-trim " " str))<br />   (if (= (ascii str) (ascii "."))<br />     (setq str (strcat "0" str))<br />   )<br />   (setq n (vl-string-search "." str 2))<br />   (if (= str "")<br />     nil<br />     (cons (substr str 1 n) (if n (sstr (substr str (+ n 1)))))<br />   )<br /> )

q3_2006

lanjqka 发表于 2014-2-11 17:01

就是这个了。。。谢谢。。。脑子笨，感觉还是很难。。。。