Add Haskell solutions for Problems 4, 5, 6, 7

This commit is contained in:
2024-04-01 15:19:09 +02:00
parent 327998ae0f
commit b6b10cdd12
4 changed files with 60 additions and 0 deletions

19
Haskell/p006.hs Normal file
View File

@ -0,0 +1,19 @@
-- The sum of the squares of the first ten natural numbers is,
--
-- 1^2 + 2^2 + ... + 10^2 = 385
--
-- The square of the sum of the first ten natural numbers is,
--
-- (1 + 2 + ... + 10)^2 = 55^2 = 3025
--
-- Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 385 = 2640.
--
--Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.
sumSquareDiff :: Integer -> Integer
sumSquareDiff n = (sum [1..n]^2) - (sum $ map (^2) [1..n])
main = do
let result = sumSquareDiff 100
putStrLn $ "Project Euler, Problem 6\n"
++ "Answer: " ++ (show result)