08/04/01 00:57:20
東条と南条へ
これ、なにやってるか解析せよ
できないと立ち入り禁止!!
(defun f(n k list)
(let
((list1 (copy-list list))
(list2 (copy-list list)))
(cond
((= n k) (progn (push k list ) (print list) 1))
((< n k) 0)
(t (+ (f (- n k) k (progn (push k list2) list2))
(f n (+ k 1) list1))))))
;;
;;
;;
(defun g(n)
(f n 1 '()))