[cs-lisp] nerde kalmistik.?

(defun my-replace (lst) (cond ((null lst) '()) ((eq (car lst) 'a) (append (list 'e) (my-replace (cdr lst ((eq (car lst) 'b) (append (list 'd) (my-replace (cdr lst (t (append (list (car lst)) (my-replace (cdr lst)) Bu sablonu L-sistem'i ya da bir

RE: [cs-lisp] nerde kalmistik.?

-Original Message- From: [EMAIL PROTECTED] on behalf of Aykut Caglayan Sent: Sat 2/2/2008 9:44 PM To: cs-lisp@cs.bilgi.edu.tr Subject: [cs-lisp] nerde kalmistik.? (defun my-replace (lst) (cond ((null lst) '()) ((eq (car lst) 'a) (append (list 'e) (my-replace (cdr lst