- 460 名前：デフォルトの名無しさん mailto:sage [2007/10/16(火) 03:10:09 ]
- >>450
再帰関数についてもうちょっと勉強しないと…
(defun comb (seq k)
(top (comb2 seq k))
) としておいて、comb2は、
kが0でなければ、
seqから一つxを抜き出して、
(comb2 (seqからxを除いたもの) (- k 1))の先頭にxを付け足すしたリスト
を全てのxに対して行って、皆listして返す。
k=0ならNILを返す。
k-1の時の結果から、kの時の結果を作り出す部分と
k=0の時の結果から再帰関数を構成する。
