12 lines
286 B
Haskell
12 lines
286 B
Haskell
main :: IO ()
|
|
main = putStr $ show $ solve 100
|
|
|
|
solve :: Integer -> Integer
|
|
solve n = squareOfSum n - sumOfSquares n
|
|
where
|
|
squareOfSum :: Integer -> Integer
|
|
squareOfSum n = sum [1 .. n] ^ 2
|
|
|
|
sumOfSquares :: Integer -> Integer
|
|
sumOfSquares n = sum $ map (^ 2) [1 .. n]
|