DouKaku?beta

challenge 自然数の分割 

自然数nとm(n>=m>0)が与えられたとき，nをm個の非負の整数の和で表すやり方を全て出力してください．
その際，和の組(x_1, ..., x_m)は大きい順に出力してください．
ここでm = 3の時の「(a, b, c)が(A, B, C)より大きい」とは
(a > A)
(a == A) かつ (b > B)
(a == A) かつ (b == B) かつ (c > C)
のいずれかが成り立つとき(つまりは辞書的順序)とします．

例:n = 5, m = 3が与えられたときは
5, 0, 0,
4, 1, 0,
4, 0, 1,
3, 2, 0,
3, 1, 1,
...
0, 1, 4,
0, 0, 5,
を出力する．
post comment

Posted feedbacks - Common Lisp

再帰とか普通のやり方は既出なので、コード生成と eval で。

1
2
3
4
5
6
7
8
9
(defun partition (n m)
  (eval (gen-partition n m 0 (loop repeat m collect (gensym)))))

(defun gen-partition (n m i vars)
  (if (= i m)
      `(if (= (+ ,@vars) ,n)
           (format t "~@{~D~^, ~}~%" ,@vars))
    `(loop for ,(nth i vars) from ,n downto 0
       do ,(gen-partition n m (1+ i) vars))))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]