Euler : Problem 56

Posted by YpsilonTAKAI On 2011年7月3日日曜日 0 コメント
1の1乗から100の100乗までの数で、各桁の数を足したものが一番大きくなるものを求める問題。

そのまま計算したのでございます。



;;
;; Problem 56 : 2011/6/20
;; "Elapsed time: 15482.925064 msecs"

(reduce max
(for [a (range 1 100) b (range 1 100)]
(reduce + (num-to-list (expt a b)))))
;;

0 コメント:

コメントを投稿