Recursion 避免双重递归

此函数返回一个点对（如果第一个元素是子列表），子列表的第一个元素是右边的部分，左边是右边的元素和列表的第二个元素（如果不是子列表）。现在，如果不使用

（F（CAR L））

的双递归和

集，我如何重写它，SETQ，SETF

？

使用

LET

将局部变量绑定到重复的递归调用

(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))
       (LET ((FCAR (F CAR L)))
         (APPEND FCAR
                 (F (CDR L))
                 (CAR FCAR))))
      (T (LIST (CAR L)))
))