path: root/H33.hs

coprime :: Integral a => a -> a -> Bool
coprime x 0 = x == 1
coprime x y = coprime y (x `mod` y)