Euler : Problem 13

Posted by YpsilonTAKAI On 2011年4月14日木曜日 0 コメント
でかい数の足し算。

前の13桁だけ足して答を出した。 まあ、もとのデータを文字列で読んじゃったから、なんのことはない。
;;
;; Problem 13 : 2011/4/14
;; "Elapsed time: 4.569016 msecs"

(reduce + (map #(new BigInteger (apply str (take 13 %))) target-list))

(def target-list [
"37107287533902102798797998220837590246510135740250"
"46376937677490009712648124896970078050417018260538"
"74324986199524741059474233309513058123726617309629"
"91942213363574161572522430563301811072406154908250"
"23067588207539346171171980310421047513778063246676"
"89261670696623633820136378418383684178734361726757"
--- crop ---
"77158542502016545090413245809786882778948721859617"
"72107838435069186155435662884062257473692284509516"
"20849603980134001723930671666823555245252804609722"
"53503534226472524250874054075591789781264330331690"])

;;

0 コメント:

コメントを投稿