07/10/16 00:26:24
>>449
一応表示は top関数で表示してます。
(defun comb (seq k)
(setq tmp NIL)
(comb2 seq k tmp)
)
(defun top (seq tmp)
(print (app tmp (car seq)))
(cond ((null (cdr seq)) )
(T (top (cdr seq) tmp)))
)
(defun comb2 (seq k tmp)
(cond ((= k 1) (top seq tmp) )
((null (cdr seq)) )
(T (setq tmp (app tmp (car seq))) (comb2 (cdr seq) (- k 1) tmp) (comb2 (cdr seq) k NIL)
))
としました。