【程式語言】LISP練習

計算輸入參數的原子個數(不考慮原子為Nil)


(defun   AtomCount(lis))

            (COND  ((NULL   lis)   0)
                           ((ATOM  lis)  1)
                           (T  (  +(AtomCount(Car lis))
                                      (AtomCount(Cdr lis))
                            )
               )
)