http://www.colorless-sight.jp/wiki/?ProjectEular%2FProblem16
-- Problem 16 module Main (main) where import qualified Char (digitToInt) main :: IO () main = print $ problem16 problem16 :: Int problem16 = sum $ map Char.digitToInt $ show $ 2 ^ 1000 |
最新の20件2023-08-12
2022-12-28
2017-08-15
2014-01-31
2014-01-29
2013-06-04
2012-11-23
2010-08-01
2010-07-24
Tweet
|