Euler : Problem 16

Posted by TAKAIY On 2011年4月24日日曜日 0 コメント

2の1000乗に出てくる数字を全部足すといくつ? って問題です。
とりあえず作ってみたら動いちゃったので、そのまま。

計算して、各桁足してます。
芸が無い。


;;
;; Problem 16 : 2011/4/22
;; "Elapsed time: 16.475557 msecs"
(use 'clojure.contrib.math)

(loop [num (expt 2 1000)
result 0]
(if (< num 1)
result
(recur (floor (/ num 10))
(+ result (rem num 10)))))

;;

0 コメント:

コメントを投稿