https://www.colorless-sight.jp:443/wiki/?ProjectEular%2FProblem6
-- Problem 6 module Main (main) where main :: IO () main = print $ problem6 problem6 :: (Integral a) => a problem6 = (square_sum [1..100]) - (sum_square [1..100]) sum_square :: (Integral a) => [a] -> a sum_square numbers = sum (map (^2) numbers) square_sum :: (Integral a) => [a] -> a square_sum numbers = (sum numbers) ^ 2 |
最新の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
|