- 622 名前：デフォルトの名無しさん mailto:sage [2007/10/07(日) 18:49:58 ]
- (setq abcd (list 'A 'B 'C 'D))
(defun merg (seq1 seq2)
(if (null seq1)
seq2
(cons (car seq1)
(merg (cdr seq1) seq2))))
(defun app (seq elem)
(merg seq (cons elem NIL)))
(defun comb (seq)
(defun ith (que i)
(if (= i 1)
(car que)
(ith (cdr que) (- i 1))))
(defun lp (tmp i n)
(print (app (list (car tmp)) (ith tmp i)))
(cond ((null (ith tmp 3)) n)
((null (ith tmp (+ i 1)))
(lp (cdr tmp) 2 (+ n 1)))
(T (lp tmp (+ i 1) (+ n 1)))))
(lp seq 2 1))
の関数combを変更して
相異なる要素からなる系列 seq の要素中 num 個（num: 系列長以下の非負整数）を選んだ組合せをすべて表示し場合の数も表示する
関数 (comb seq num) を作る問題を教えてください
|
 |
