--/--/--

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

2008/10/17

Project Euler: Problem 16

Problem 16

2^1000 を計算して答えを文字列化する。各文字を数値化することで、数値のリストを作る。あとはその数値のリストの合計を求めるだけ。ひねりなし。

Haskell の (^) が想像以上に速い。

実行結果

$ runhaskell 16.hs
1366

プログラム

1 import Char (ord)
2
3 main = print $ sum $ map toNum $ show $ 2^1000
4   where toNum c = ord c - ord '0'
スポンサーサイト

comment

post




上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。