Lisp Scheme Part18 - 暇つぶし2ch

Lisp Scheme Part18 at TECH

450:デフォルトの名無しさん
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)
))
としました。

次ページ

続きを表示

1を表示