5 lines
103 B
Haskell
5 lines
103 B
Haskell
|
lcm :: (Integral a) => a -> a -> a
|
||
|
|
lcm _ 0 = 0
|
||
|
|
lcm 0 _ = 0
|
||
|
|
lcm x y = abs ((x `quot` (gcd x y)) * y)
|