学习 lisp 递归

lanjqka

还是递归 继续递归

2. 
   
3. (defun str2lst (str / n)
   
4.   (setq str (vl-string-trim " " str))
   
5.   (setq n (vl-string-search " " str))
   
6.   (if (= str "")
   
7.     nil
   
8.     (cons (substr str 1 n) (if n (str2lst (substr str (+ n 1))))
   
9.     )
   
10.   )
    
11. )

<br /> (defun str2lst (str / n)<br />   (setq str (vl-string-trim " " str))<br />   (setq n (vl-string-search " " str))<br />   (if (= str "")<br />     nil<br />     (cons (substr str 1 n) (if n (str2lst (substr str (+ n 1))))<br />     )<br />   )<br /> )

lanjqka

;同vl-remove

2. (defun ouremove (x l)
   
3.   (if (null l)
   
4.     nil
   
5.     (if (equal x (car l))
   
6.       (ouremove x (cdr l))
   
7.       (cons (car l) (ouremove x (cdr l)))
   
8.     )
   
9.   )
   
10. )

(defun ouremove (x l)<br />   (if (null l)<br />     nil<br />     (if (equal x (car l))<br />       (ouremove x (cdr l))<br />       (cons (car l) (ouremove x (cdr l)))<br />     )<br />   )<br /> )

479274135

这学习精神  值得我们学习

阳阳阳

这个是好东西！1

lanjqka

;;同vl-position

2. (defun ourposition (u l / i)
   
3.   (if (null l)
   
4.     nil
   
5.     (if (eq u (car l))
   
6.       0
   
7.       (progn (setq i (ourposition u (cdr l))) (setq i (+ i 1)))
   
8.     )
   
9.   )
   
10. )

(defun ourposition (u l / i)<br />   (if (null l)<br />     nil<br />     (if (eq u (car l))<br />       0<br />       (progn (setq i (ourposition u (cdr l))) (setq i (+ i 1)))<br />     )<br />   )<br /> )

;;  再改

2. (defun ourposition (a l)
   
3.   (if (null l)
   
4.     nil
   
5.     (if (equal a (car l))
   
6.       0
   
7.       (+ (ourposition a (cdr l)) 1)
   
8.     )
   
9.   )
   
10. )

(defun ourposition (a l)<br />   (if (null l)<br />     nil<br />     (if (equal a (car l))<br />       0<br />       (+ (ourposition a (cdr l)) 1)<br />     )<br />   )<br /> )

lanjqka

http://bbs.mjtd.com/thread-108956-1-1.html
;;vl-string->list

2. (defun string->list (str)
   
3.   (if (zerop (ascii str))
   
4.     nil
   
5.     (cons (ascii str) (string->list (substr str 2)))
   
6.   )
   
7. )

(defun string->list (str)<br />   (if (zerop (ascii str))<br />     nil<br />     (cons (ascii str) (string->list (substr str 2)))<br />   )<br /> )

;;

2. (defun reverstr (str) ;倒置字符串
   
3.   (if (zerop (ascii str))
   
4.     ""
   
5.     (if (<= (ascii str) 128)
   
6.       (strcat (reverstr (substr str 2)) (substr str 1 1))
   
7.       (strcat (reverstr (substr str 3)) (substr str 1 2))
   
8.     )
   
9.   )
   
10. )
    

(defun reverstr (str) ;倒置字符串<br />   (if (zerop (ascii str))<br />     ""<br />     (if (<= (ascii str) 128)<br />       (strcat (reverstr (substr str 2)) (substr str 1 1))<br />       (strcat (reverstr (substr str 3)) (substr str 1 2))<br />     )<br />   )<br /> )<br />

lanjqka

http://bbs.mjtd.com/thread-108944-1-1.html
看了网上帖子，gcd是用了rem做辗转相除的，那可能是有效的。

2. (defun gcd (a b)
   
3.   (if (= b 0)
   
4.       a
   
5.       (gcd b (rem a b))))

(defun gcd (a b)<br />   (if (= b 0)<br />       a<br />       (gcd b (rem a b))))

来个 辗转相减

2. (defun gcd2 (a b)
   
3.   (if (= a b)
   
4.     a
   
5.     (gcd2 b (abs (- a b)))
   
6.   )
   
7. )

(defun gcd2 (a b)<br />   (if (= a b)<br />     a<br />     (gcd2 b (abs (- a b)))<br />   )<br /> )

;;数表的最大公约数

2. (defun ourgcd (l)
   
3. (if (null (cadr l))
   
4.    (car l)
   
5.    (ourgcd (cons (gcd (car l) (cadr l)) (cddr l)))
   
6. )
   
7. )

(defun ourgcd (l)<br /> (if (null (cadr l))<br />    (car l)<br />    (ourgcd (cons (gcd (car l) (cadr l)) (cddr l)))<br /> )<br /> )

lanjqka

最近学习了递归 没有收住 欢迎大家一起来
递归的感觉
(...
  (if (退出条件)
    退出形式
   (符合递归形式)
  )
...
)

lanjqka

2. ;; getnum
   
3. (defun ourgetnum (/ val)
   
4.   (setq val (read (getstring "\nPlease enter a number : ")))
   
5.   (if (numberp val)
   
6.     (eval val)
   
7.     (ourgetnum)
   
8.   )
   
9. )

;; getnum<br /> (defun ourgetnum (/ val)<br />   (setq val (read (getstring "\nPlease enter a number : ")))<br />   (if (numberp val)<br />     (eval val)<br />     (ourgetnum)<br />   )<br /> )

lanjqka

;;转录 ;;同length

2. (defun ourlength (l)
   
3.   (if (null l)
   
4.     0
   
5.     (+ (ourlength (cdr l)) 1)
   
6.   )
   
7. )
   

(defun ourlength (l)<br />   (if (null l)<br />     0<br />     (+ (ourlength (cdr l)) 1)<br />   )<br /> )<br />

lanjqka

;;同member

2. (defun ourmember (x l)
   
3.   (if (null l)
   
4.     nil
   
5.     (if (equal x (car l))
   
6.       l
   
7.       (ourmember x (cdr l))
   
8.     )
   
9.   )
   
10. )

(defun ourmember (x l)<br />   (if (null l)<br />     nil<br />     (if (equal x (car l))<br />       l<br />       (ourmember x (cdr l))<br />     )<br />   )<br /> )

lanjqka

2. 
   
3. ;; nth
   
4. (defun ournth (n l)
   
5.   (if (null l)
   
6.     nil
   
7.     (if (zerop n)
   
8.       (car l)
   
9.       (ournth (- n 1) (cdr l))
   
10.     )
    
11.   )
    
12. )

<br /> ;; nth<br /> (defun ournth (n l)<br />   (if (null l)<br />     nil<br />     (if (zerop n)<br />       (car l)<br />       (ournth (- n 1) (cdr l))<br />     )<br />   )<br /> )