Euler : Problem 48

Posted by YpsilonTAKAI On 2011年6月29日水曜日 0 コメント
1から1000までの数nについてnのn乗の和を求める問題。

そのまま解いただけ。
最後の10桁だけ求めればいいので、足す前に11桁め以上を消してます。



;;
;; Problem 48 : 2011/6/13
;; "Elapsed time: 217.941386 msecs"

(reduce + (map #(rem (expt % %) 10000000000)(range 1 1001)))
;;

0 コメント:

コメントを投稿