6 lines
88 B
Haskell
6 lines
88 B
Haskell
main :: IO ()
|
|
main = putStr $ show solve
|
|
|
|
solve :: Integer
|
|
solve = foldl1 lcm [1 .. 20]
|