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 コメント:

コメントを投稿