Warning: file_get_contents(http://mikiurl.com/api/?url=http://www.autocadhocasi.com/forum/topic/autocad-liste-fonksiyonlari-1) [function.file-get-contents]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home/autocadh/public_html/forum/bb-plugins/social-it/functions.php on line 844
;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)
