Euler : Problem 6

Posted by YpsilonTAKAI On 2011年4月9日土曜日 0 コメント
これは書いてあるとおりにやっただけ。
こんな処理はClojureならではかなぁ。

;;
;; Problem 6 : 2011/4/7
;
(- (expt (reduce + (range 1 101)) 2)
(reduce + (map #(expt % 2) (range 1 101))))

;;

0 コメント:

コメントを投稿