summaryrefslogtreecommitdiff
path: root/H32.hs
blob: 2a0fa8822abf4fa1e4a935c1410cb4033ad5f7e7 (plain)
1
2
3
myGCD :: Integral a => a -> a -> a
myGCD x 0 = x
myGCD x y = myGCD y (x `mod` y)