13 lines
370 B
Haskell
13 lines
370 B
Haskell
-- 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?
|
|
|
|
import ProjectEuler (lcmm)
|
|
|
|
main = do
|
|
let result = lcmm [1 .. 20]
|
|
putStrLn $
|
|
"Project Euler, Problem 5\n"
|
|
++ "Answer: "
|
|
++ show result
|