diff options
| author | Determinant <ted.sybil@gmail.com> | 2017-05-29 13:29:11 -0400 |
|---|---|---|
| committer | Determinant <ted.sybil@gmail.com> | 2017-05-29 13:29:11 -0400 |
| commit | 9db0008777cc4cd9f07e14a3458e3d903e3cc4f6 (patch) | |
| tree | af3891261924ae914ee3855e948b4d479f4d06de /31-41/33.hs | |
| parent | fa1bf6c2eac1c9f7969ff29504c9f51b9ba48008 (diff) | |
finish vol 4
Diffstat (limited to '31-41/33.hs')
| -rw-r--r-- | 31-41/33.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/31-41/33.hs b/31-41/33.hs new file mode 100644 index 0000000..52bebbb --- /dev/null +++ b/31-41/33.hs @@ -0,0 +1,9 @@ +myGCD :: Int -> Int -> Int + + +myGCD a 0 = abs a +myGCD a b = myGCD b (a `mod` b) + +coprime :: Int -> Int -> Bool + +coprime a b = myGCD a b == 1 |