(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 fraktalli
-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
>
2 matches
Mail list logo