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

13
Haskell/p005.hs Normal file
View File

@ -0,0 +1,13 @@
-- 2520 is the smallest number that can be divided by each of the numbers from 1 to 10 without any remainder.
--
-- What is the smallest positive number that is evenly divisible by all of the numbers from 1 to 20?
lcmm :: (Integral n) => [n] -> n
lcmm values
| length values == 2 = lcm (head values) (last values)
| otherwise = lcm (head values) (lcmm (tail values))
main = do
let result = lcmm [1..20]
putStrLn $ "Project Euler, Problem 5\n"
++ "Answer: " ++ (show result)