Colorless Sight Wiki / ProjectEular/Problem6

ProjectEular

-- 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件