Lisp: Verhindern doppelten Aufruf der rekursiven Funktion

Question

Wie kann ich verhindern, dass der doppelrekursive Aufruf an (f (Auto l)) ohne 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))) 
    ) 
) 

Sie denken, das folgende löst es?

(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

Ihr Versuch ist in Ordnung, aber ist in der Regel wie folgt geschrieben:

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

->

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

auch beachten:

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

in Common Lisp geschrieben werden können wie:

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

oder bevorzugt, wie bereits erwähnt, als:

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