DouKaku?beta

Comment detail

ダブル完全数 (Nested Flatten) 
loopマクロに慣れてきた。
(answer) 
 => (120 672)

1
2
3
4
5
(defun double-complete-numberp (n)
  (eql (* n 2) (loop for x from 1 to (1- n) when (zerop (mod n x)) sum x)))

(defun answer ()
  (loop for i from 1 to 1000 when (double-complete-numberp i) collect i))
関数名が嘘でしたorz.訂正します。 
1
2
3
4
5
(defun sum-others (n)
  (eql (* n 2) (loop for x from 1 to (1- n) when (zerop (mod n x)) sum x)))

(defun answer ()
  (loop for i from 1 to 1000 when (sum-others i) collect i))
最初ので合ってました。汚してすいません。 おちつけ俺orz.

Index

Feed

Other

Link

Pathtraq

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