miniMAL: step4.

1 files changed, 40 insertions, 0 deletions

diff --git a/miniMAL/core.json b/miniMAL/core.json
new file mode 100644
index 0000000..4717f77
--- /dev/null
+++ b/miniMAL/core.json
@@ -0,0 +1,40 @@
+["do",
+
+["def", "div", ["fn", ["a", "b"], ["parseInt", ["/", "a", "b"]]]],
+
+["def", "_count", ["fn", ["a"],
+  ["if", ["=", null, "a"],
+    0,
+    ["count", "a"]]]],
+
+["def", "core-ns",
+  ["hash-map",
+   ["`", "="],  "equal?",
+
+   ["`", "pr-str"],  ["fn", ["&", "a"], ["pr-list", "a", true, ["`", " "]]],
+   ["`", "str"],     ["fn", ["&", "a"], ["pr-list", "a", false, ["`", ""]]],
+   ["`", "prn"],     ["fn", ["&", "a"],
+                       ["do",
+                         ["println", ["pr-list", "a", true, ["`", " "]]],
+                         null]],
+   ["`", "println"], ["fn", ["&", "a"],
+                       ["do",
+                         ["println", ["pr-list", "a", false, ["`", " "]]],
+                         null]],
+
+   ["`", "<"],  "<",
+   ["`", "<="], "<=",
+   ["`", ">"],  ">",
+   ["`", ">="], ">=",
+   ["`", "+"],  "+",
+   ["`", "-"],  "-",
+   ["`", "*"],  "*",
+   ["`", "/"],  "div",
+
+   ["`", "list"],   "list",
+   ["`", "list?"],  "list?",
+
+   ["`", "empty?"], "empty?",
+   ["`", "count"],  "_count"]],
+
+null]