coprime : Int -> Int -> Bool coprime a b = gcd a b == 1 gcd : Int -> Int -> Int gcd a b = if b == 0 then abs a else gcd b (a % b)
Back to problem