diff --git a/Zora.cabal b/Zora.cabal
--- a/Zora.cabal
+++ b/Zora.cabal
@@ -1,5 +1,5 @@
 Name:		   Zora
-Version:	   1.1.19
+Version:	   1.1.20
 Synopsis:      Graphing library wrapper + assorted useful functions 
 Description:   A library of assorted useful functions for working with lists, doing mathematical operations and graphing custom data types.
 Category:      Unclassified
diff --git a/Zora/Math.hs b/Zora/Math.hs
--- a/Zora/Math.hs
+++ b/Zora/Math.hs
@@ -132,18 +132,9 @@
 prime :: Integer -> Bool
 prime n = (factor n) == [n]
 
--- | /O(min(n, m))/ Returns whether the the two parameters are <http://en.wikipedia.org/wiki/Coprime coprime>, that is, whether they share any divisors.
+-- | /O(min(n, m) (mod 10))/ Returns whether the the two parameters are <http://en.wikipedia.org/wiki/Coprime coprime>, that is, whether they share any divisors.
 coprime :: Integer -> Integer -> Bool
-coprime a b = isNothing .  List.find is_common_divisor $ [2..(min a' b')]
-	where
-		a' :: Integer
-		a' = abs a
-
-		b' :: Integer
-		b' = abs b
-
-		is_common_divisor :: Integer -> Bool
-		is_common_divisor n = (a `mod` n == 0) && (b `mod` n == 0)
+coprime a b = (gcd a b) == 1
 
 -- | /O(1)/ @phi(p^a)@ for prime @p@ and nonnegative @a@.
 euler_phi_for_powers_of_primes :: (Integer, Integer) -> Integer