Теория чисел и язык Haskell: различия между версиями

multiple»):

 

lcm :: Integral a => a -> a -> a

lcm _ 0 = 0

lcm 0 _ = 0

lcm m n = abs ((quot m (gcd m n)) * n)

 

Здесь также встречается уже рассмотренная функция <tt>abs}, а