介绍几个表处理函数

greatlmy

1. (defun chgnth (i v l)
   
2. ; 表换元素，用V替换表L中第I个元素，函数返回新表      
   
3. (if (< i (length l)) (append (carnth i l) (list v) (cdrnth i l))))
   
4. (defun carnth (i l)                        
   
5. ; 表取头,保留表L前面I-1个元素，函数返回新表  
   
6. (if (= i (length l))
   
7.    l   
   
8. (progn
   
9.       (setq l (reverse l)
   
10.             i (- (length l) i 1)
    
11.             l (cdrnth i l)
    
12.       )
    
13.      (reverse l)
    
14.     )
    
15.   ))
    
16. (defun cdrnth (i l)
    
17. ; 表取尾,去除表L后面I个元素，函数返回新表
    
18.         (repeat (1+ i) (setq l (cdr l))))
    
19. (defun delnth (i l)
    
20. ; 删除表L中第I个元素，函数返回新表
    
21.   (append (carnth i l) (cdrnth i l)))

(defun chgnth (i v l)<br /> ; 表换元素，用V替换表L中第I个元素，函数返回新表       <br /> (if (< i (length l)) (append (carnth i l) (list v) (cdrnth i l))))<br /> (defun carnth (i l)                        <br /> ; 表取头,保留表L前面I-1个元素，函数返回新表  <br /> (if (= i (length l)) <br />    l    <br /> (progn<br />       (setq l (reverse l)<br />             i (- (length l) i 1)<br />             l (cdrnth i l)<br />       ) <br />      (reverse l)<br />     )<br />   ))<br /> (defun cdrnth (i l) <br /> ; 表取尾,去除表L后面I个元素，函数返回新表<br />         (repeat (1+ i) (setq l (cdr l))))<br /> (defun delnth (i l) <br /> ; 删除表L中第I个元素，函数返回新表<br />   (append (carnth i l) (cdrnth i l)))

uualice2020

谢谢楼主分享。

vladimirputin

表处理函数很有用的在lisp

超人黄

学习一下谢谢分享！！！

sicky111

谢谢楼主分享。

llsheng_73

好象实用性很强的样子

purpletyx2009

不明觉厉，试试看

再往上就可看见

好的，参考一下，谢谢楼主

yoyoho

感谢 greatlmy 分享函数!

cdinten

不错，就是lisp语言括号太多了，看着犯晕

enn09

谢谢楼主分享。

yxh1202

大师，有没有表去头，就是去掉表的前面n个元素返回新表。谢谢指导

yx5277

不错的函数