Project Euler Q5 解法

-- 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?

lcmL :: [Int] -> Int
lcmL (x:[]) = x
lcmL (x:xs) = lcm x (lcmL xs)

main = print $ lcmL [1..20]