Y箱

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)))))

;;