* E Posta Adresiniz:
* Kodu Girin:

Liste Fonksiyonları-1

Listeden eleman çıkarmak
shark - 21.12.2005 10:51
Yazar: Derya KILIÇ
İçerik:

(Kontrol panelinizde görünür)
;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)
Yorumlar :
freemust   23.12.2005 23:03 #161  

odulu fazlasiyla haketmis. cok basit, sade, hizli, zekice... ustelik intellicadde de calisiyor.

Copyright © 2004-2018 | Tüm Hakları Saklıdır | 2795 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam