Lisp Scheme Part18 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
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) )) としました。 451:デフォルトの名無しさん 07/10/16 00:26:55 結果は [37]> (comb abcd 3) (A B C) (A B D) (C D) (B C D) T [38]> (comb abcde 3) (A B C) (A B D) (A B E) (C D) (C E) (D E) (B C D) (B C E) (D E) (C D E) T ここまでなんとかなりました。　あと先頭要素が加わってないやつに加えられれば良いんですが・・・・ 452:デフォルトの名無しさん 07/10/16 00:27:48 comb2定義の最後の括弧が抜けました・・・

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5096日前に更新/189 KB
担当:undef