Lisp：再帰関数の二重呼び出しの防止

Question

（f（car l））への二重再帰呼び出しを、set/setq/setfを使わずにどうして防ぐことができますか？

(defun f(l) 
    (cond 
     ((null l) nil) 
     ((listp (car l)) (append (f (car l)) (f (cdr l)) (car (f (car l))))) 
     (T (list (car l))) 
    ) 
) 

次のように考えていますか？

(defun f(l) 
    (cond 
    ((null l) nil) 
    ((listp (car l)) 
     (funcall #'(lambda(ff) (append ff (f (cdr l)) (list (car ff)))) (f (car l)))) 
    (T (list (car l))) 
    ) 
) 

Answer 1

あなたの試みは大丈夫ですが、通常のように書かれている：

... 
(bar (foo abcde)) 
... 
(baz (foo abcde)) 
... 

- も注意>

(let ((r (foo abcde))) 
    ... 
    (bar r) 
    ... 
    (baz r) 
    ...) 

：

(funcall #'(lambda (foo) ...) bar) 

は、Common Lispで書くことができ として：

すでに述べたように

((lambda (foo) ...) bar) 

又は好ましい、と：

(let ((foo bar)) 
    ...)