第五日 最小倍数

2520是最小的可被从1到10以内的数整除的数，求可被从1到20以内的数整除的最小正整数

公倍数 [] = 1
公倍数 (素数:递增数列) = 素数 * (公倍数 $ map lambda 递增数列)
    where lambda = \n->if n `mod` 素数==0 then n `div` 素数 else n
answer = 公倍数 [1..20]

在车上弄懂了如何求两个数的最小公倍数，然后推广到多个数的最小公倍数，再使用筛法的思想优化算法，即得。
只能应用于+1递增数列。
任意自然数列请用：

foldl (lcm) 1 [1..20]