Liste Fonksiyonları-1
Listeden eleman çıkarmak
Derya KILIÇ - 21.12.2005 07:51
Derya KILIÇ - 21.12.2005 07:51
;asagidaki kod 'lisp puzzle contest' odulunu alan Serge Volkov'a aittir.
(defun remove (expr lst)
(apply 'append (subst nil (list expr) (mapcar 'list lst))))
;Örnek :
(setq alist (list 1 2 3 4 5))
(remove 3 alist)
;Sonuc :
(1 2 4 5)
(defun remove (expr lst)
(apply 'append (subst nil (list expr) (mapcar 'list lst))))
;Örnek :
(setq alist (list 1 2 3 4 5))
(remove 3 alist)
;Sonuc :
(1 2 4 5)
Yazar: Derya KILIÇ
İçerik:
Tag: autolisp listeden eleman çıkarmak, autolisp Liste Fonksiyonları
Yorumlar :
freemust 23.12.2005 20:03 #161
odulu fazlasiyla haketmis. cok basit, sade, hizli, zekice... ustelik intellicadde de calisiyor.