started core and math libraries

hscells · Oct 19, 2015 · 2cb2b20 · 2cb2b20
1 parent 1bc7251
commit 2cb2b20
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/zlib/core.zap b/zlib/core.zap
@@ -0,0 +1,5 @@
+
+(fn empty? (l)
+  (cond
+    ((= 0 (length l)) (return True))
+    (True (return False))))
diff --git a/zlib/math.zap b/zlib/math.zap
@@ -0,0 +1,9 @@
+(let PI 3.141519)
+
+(fn dec (n) (- n 1))
+(fn inc (n) (+ n 1))
+
+(fn pow (n exponent)
+  (cond
+    ((<= exponent 1) (return n))
+    (True (* n (pow n (dec exponent)))))