4 lines
103 B
Haskell
4 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)
|