From cc9cad806035118aa3a2e8dc13a65fde590afb06 Mon Sep 17 00:00:00 2001
From: ChrisFadden <chris_fadden@yahoo.com>
Date: Fri, 28 Aug 2015 18:52:29 -0400
Subject: [PATCH] Added floating point modulus function

---
 stdlib/math.krak | 43 +++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 41 insertions(+), 2 deletions(-)

diff --git a/stdlib/math.krak b/stdlib/math.krak
index 578c091..1f4c260 100644
--- a/stdlib/math.krak
+++ b/stdlib/math.krak
@@ -96,6 +96,45 @@ fun sin(arg: double): double
   return ans;
 }//end sin function
 
-//|int| NotPi = 3;
-//|double| STD_PI = 4*atan(1);
+fun mod(x: double, y: double): double
+{
+   var ans: double;
+   var intAns: int;
+
+   intAns = x / y;
+   ans = x - intAns*y;
+
+   return ans;
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+