学习 lisp 递归

lanjqka

;;ourappend

2. (defun ourappend (l1 l2)
   
3.   (if (null l2)
   
4.     nil
   
5.     (if (null l1)      
   
6.       (cons (car l2) (ourappend l1 (cdr l2)))
   
7.       (cons (car l1) (ourappend (cdr l1) l2))
   
8.     )
   
9.   )
   
10. )
    

(defun ourappend (l1 l2)<br />   (if (null l2)<br />     nil<br />     (if (null l1)      <br />       (cons (car l2) (ourappend l1 (cdr l2)))<br />       (cons (car l1) (ourappend (cdr l1) l2))<br />     ) <br />   )<br /> )<br />

;;ourlist

2. (defun ourlist (l1)
   
3.   (if (null l1)
   
4.     nil
   
5.     (cons (car l1) (ourlist (cdr l1)))
   
6.   )
   
7. )

(defun ourlist (l1)<br />   (if (null l1)<br />     nil<br />     (cons (car l1) (ourlist (cdr l1)))<br />   )<br /> )

lanjqka

2. ;;删除nth对应表项返回新表
   
3. (defun remove-nth (n l)
   
4.   (if (null l)
   
5.     nil
   
6.     (if (zerop n)
   
7.       (cdr l)
   
8.       (cons (car l) (remove-nth (- n 1) (cdr l)))
   
9.     )
   
10.   )
    
11. )

;;删除nth对应表项返回新表<br /> (defun remove-nth (n l)<br />   (if (null l)<br />     nil<br />     (if (zerop n)<br />       (cdr l)<br />       (cons (car l) (remove-nth (- n 1) (cdr l)))<br />     )<br />   )<br /> )

lanjqka

2. ;; find > 0 的第一个数并返回
   
3. (defun first-pos (l)
   
4.   (if (null l)
   
5.     nil
   
6.     (if (> (car l) 0)
   
7.       (car l)
   
8.       (first-pos (cdr l))
   
9.     )
   
10.   )
    
11. )

;; find > 0 的第一个数并返回<br /> (defun first-pos (l)<br />   (if (null l)<br />     nil<br />     (if (> (car l) 0)<br />       (car l)<br />       (first-pos (cdr l))<br />     )<br />   )<br /> )

lanjqka

;; 同reverse

2. (defun oureverse (l)
   
3.   (if (null l)
   
4.     nil
   
5.     (ourappend (oureverse (cdr l)) (list (car l)))
   
6.   )
   
7. )

(defun oureverse (l)<br />   (if (null l)<br />     nil<br />     (ourappend (oureverse (cdr l)) (list (car l)))<br />   )<br /> )

lanjqka

2. ;; 判断质数
   
3. (defun is-prime (i)
   
4.   (defun remp (n)
   
5.     (if (> n (/ i n))
   
6.       T
   
7.       (if (zerop (rem i n))
   
8.         nil
   
9.         (remp (+ n 1))
   
10.       )
    
11.     )
    
12.   )
    
13.   (remp 2)
    
14. )

;; 判断质数<br /> (defun is-prime (i)<br />   (defun remp (n)<br />     (if (> n (/ i n))<br />       T<br />       (if (zerop (rem i n))<br />         nil<br />         (remp (+ n 1))<br />       )<br />     )<br />   )<br />   (remp 2)<br /> )

lanjqka

2. ;; 用新元素new替换表lst中第i项元素
   
3. (defun ch-lst (new i lst)
   
4.   (if (null lst)
   
5.     nil
   
6.     (if (zerop i)
   
7.       (cons new (cdr lst))
   
8.       (cons (car lst) (ch-lst new (- i 1) (cdr lst)))
   
9.     )
   
10.   )
    
11. )

;; 用新元素new替换表lst中第i项元素<br /> (defun ch-lst (new i lst)<br />   (if (null lst)<br />     nil<br />     (if (zerop i)<br />       (cons new (cdr lst))<br />       (cons (car lst) (ch-lst new (- i 1) (cdr lst)))<br />     )<br />   )<br /> )

Student

好，值得借鉴

fl202

个人觉得：还是开发新的子函数，编写些同reverse这类，没什么意义。

递归的效率高、代码简洁，可以用来替代或者改进本论坛的一些其它程序。

lanjqka

fl202 发表于 2014-1-13 12:52
个人觉得：还是开发新的子函数，编写些同reverse这类，没什么意义。

递归的效率高、代码简洁，可以用来替 ...

初学
见谅
抛砖引玉吧

lanjqka

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=83019
7题 powerset
多重递归找不到北