[LISP函数-表]：去除最后一个元素

eachy

2. 
   
3. (defun xd-last! (lst /)
   
4.   (reverse (cdr (reverse lst)))
   
5. )

<br /> (defun xd-last! (lst /)<br />   (reverse (cdr (reverse lst)))<br /> )

taner

http://p4.xdcad.net/forum/showth ... 2443206#post2443206

;; ! Function : Remove the 'nth' item from a list
;; ! Argument : 'Lst'    - List to operate on
;; !            'Idx'    - Index number (starts from 1) to delete
;; ! Returns  : The updated list
;; ! Update   : April 1, 1999
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************
[php]
(defun LI_DelLst( Lst Idx / nlst cnt elem )
(setq
        nlst '()
        cnt 1
)
(foreach elem lst
        (if (/= cnt Idx)
                (setq nlst (cons elem nlst))
        )
        (setq cnt (1+ cnt))
)
(reverse nlst)
)

(defun LI_AddList (Lst Pos Val / Lst1 Lst2 cnt nverts )
(setq
        cnt 0
        Lst1 '()
        nverts (length Lst)
)

(repeat Pos
        (setq
                Lst1 (cons (nth cnt Lst) Lst1)
                cnt (1+ cnt)
        )
)

(setq
        Lst1 (cons Val Lst1)
        Lst1 (reverse Lst1)
        cnt Pos
)

(if (> nverts Pos)
(progn
        (setq Lst2 '())
        (repeat (- nverts Pos)
                (setq
                        Lst2 (cons (nth cnt Lst) Lst2)
                        cnt (1+ cnt)
                )
        )
        (setq
                Lst2 (reverse Lst2)
                Lst1 (append Lst1 Lst2)
        )
))
Lst1
)

[/php]

q3_2006

有用，收下了！

duotu007

这个可以有。