fix memory problem

1 files changed, 20 insertions, 0 deletions

diff --git a/stdlib/math.nxs b/stdlib/math.nxs
new file mode 100644
index 0000000..f913d82
--- /dev/null
+++ b/stdlib/math.nxs
@@ -0,0 +1,20 @@
+;; some bootstrapping needed in order to obtain more complicated functions;
+;; the power series requires a factorial and integer power function
+(bind powi (lambda (x y)
+	(if (= y 1)
+	x
+	(* x (pow x (- y 1)))
+)))
+(bind factorial (lambda (n)
+        (if (= n 0) 1 (* n (factorial (print(- n 1)))))))
+
+;; complicated functions
+(bind exp (lambda (x) x))
+
+(bind ln (lambda (x) x))
+
+(bind sin (lambda (x) x))
+
+(bind cos (lambda (x) x))
+
+(bind tan (lambda (x) (/ (sin x) (cos x))))