Теория чисел и язык 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
gcd' m n = gcd' n (rem m n)</code>
|