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

Содержимое удалено Содержимое добавлено
→‎Такие непростые простые числа: убрано дублирование первых двух абзацев
Извините если что но у меня GHC ругался пока я where наверх не перенес...
Строка 33:
<code>gcd :: Integral a => a -> a -> a
gcd 0 0 = error "НОД(0,0) не определён"
gcd m n = gcd' (abs m) (abs n) where
where gcd' m 0 = m
gcd' m n = gcd' n (rem m n)</code>