Commit | Line | Data |
---|---|---|
c5d30235 JM |
1 | ["do", |
2 | ||
3 | ["def", "div", ["fn", ["a", "b"], ["parseInt", ["/", "a", "b"]]]], | |
4 | ||
5 | ["def", "_count", ["fn", ["a"], | |
6 | ["if", ["=", null, "a"], | |
7 | 0, | |
8 | ["count", "a"]]]], | |
9 | ||
10 | ["def", "core-ns", | |
11 | ["hash-map", | |
12 | ["`", "="], "equal?", | |
13 | ||
14 | ["`", "pr-str"], ["fn", ["&", "a"], ["pr-list", "a", true, ["`", " "]]], | |
15 | ["`", "str"], ["fn", ["&", "a"], ["pr-list", "a", false, ["`", ""]]], | |
16 | ["`", "prn"], ["fn", ["&", "a"], | |
17 | ["do", | |
18 | ["println", ["pr-list", "a", true, ["`", " "]]], | |
19 | null]], | |
20 | ["`", "println"], ["fn", ["&", "a"], | |
21 | ["do", | |
22 | ["println", ["pr-list", "a", false, ["`", " "]]], | |
23 | null]], | |
24 | ||
25 | ["`", "<"], "<", | |
26 | ["`", "<="], "<=", | |
27 | ["`", ">"], ">", | |
28 | ["`", ">="], ">=", | |
29 | ["`", "+"], "+", | |
30 | ["`", "-"], "-", | |
31 | ["`", "*"], "*", | |
32 | ["`", "/"], "div", | |
33 | ||
34 | ["`", "list"], "list", | |
35 | ["`", "list?"], "list?", | |
36 | ||
37 | ["`", "empty?"], "empty?", | |
38 | ["`", "count"], "_count"]], | |
39 | ||
40 | null] |