From 730a6d777530a33fbb8df86df8b16d842b12c283 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Wed, 7 Jun 2023 21:42:54 -0400
Subject: initial commit of the start of the core library

---
 core.neb | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 core.neb

(limited to 'core.neb')

diff --git a/core.neb b/core.neb
new file mode 100644
index 0000000..62e1069
--- /dev/null
+++ b/core.neb
@@ -0,0 +1,21 @@
+; math
+(func ++ (num) (+ num 1))
+(func -- (num) (- num 1))
+
+; strings
+(func join (lst joiner)
+    ; TODO this doesn't handle empty lists
+    (concat
+        (reduce
+            (lambda (acc x)
+                (concat acc x joiner))
+            (most lst)
+            "")
+        (last lst)))
+
+; lists
+(func slice (lst idx)
+    ; TODO doesn't handle lengths
+    (if (eq? 1 idx)
+        lst
+        (slice (rest lst) (- idx 1))))
-- 
cgit v1.2.3