https://www.colorless-sight.jp:443/wiki/?ProjectEular%2FProblem13
-- Problem 13 module Main (main) where main :: IO () main = do nums_str <- getContents print $ problem13 $ to_nums nums_str problem13 :: [Integer] -> String problem13 = take 10 . show . sum to_nums :: String -> [Integer] to_nums = map read . lines |
最新の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
|