Реализации алгоритмов/Алгоритм Евклида: различия между версиями

 
== [[Haskell]] ==
<source lang="haskell">
 
gcd :: Integral a => a -> a -> a
gcd 0 0 = error "НОД от 0 и 0 не определён."
gcd x y = gcd' (abs x) (abs y)
where gcd' x 0 = x
gcd' x y = gcd' y (rem x `rem` y)
</source>
 
== [[Глагол (язык программирования)|Глагол]] ==
9

правок