blob: f6e2bba8f3145f926a8de4af84884583bdca563a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
(core.defun comment (...) ((core.pure core.nil)))
(comment "comment is a noop function for documentation")
(export comment)
(comment "Re-exports from core")
(core.def def core.def)
(def defun core.defun)
(def if core.if)
(def nil core.nil)
(def stringify core.tostring)
(def pure core.pure)
(def lambda core.lambda)
(def seq core.seq)
(def import core.import)
(def debuglog core.debuglog)
(export def defun if nil stringify pure lambda seq import debuglog)
(comment "Re-exports from arithmetic")
(def + core.arith.add)
(def / core.arith.div)
(def * core.arith.mul)
(def - core.arith.sub)
(def = core.arith.eq)
(def lt core.arith.less)
(export + / * - = lt)
(comment "comparisons")
(defun gt (l r) (lt r l))
(export gt)
(comment "The absolute value returns the argument if it is non negative or (- 0 arg) if it is")
(defun abs (arg) (if (lt arg 0) (- 0 arg) arg))
(export abs)
(comment "if! a strict version of a regular if, meaning it evaluates both the falsy and the truthy case, instead of only one.")
(defun if! (cond ifTrue ifFalse) (if cond ifTrue ifFalse))
(export if!)
(comment "return immediately returns a value where an invocation is expected")
(defun return (value) ((pure value)))
(export return)
(comment "noop is a do nothing function")
(defun noop () (return nil))
(export noop)
(comment "boolean atoms")
(def true :true)
(def false :false)
(export true false)
(comment "boolean operations. all of those are strict")
(defun | (l r) (if l true r))
(defun & (l r) (if l r false))
(defun not (v) (if v false true))
(defun ^ (l r) (if l (not r) r))
(export | & not ^)
(comment "Re-export hashes")
(def hash.new core.newhash)
(def hash.merge core.mergehash)
(def hash.get core.gethash)
(export hash.new hash.merge hash.get)
(comment "Re-export List operations")
(def list.new core.list.new)
(def list.slice core.list.slice)
(def list.length core.list.length)
(def list.join core.list.join)
(def list.at core.list.at)
(defun list.map (list func)
(if [= 0 (list.length list)]
(list.new)
(list.join
(list.new (func (list.at list 0)))
(list.map (list.slice list 1 (list.length list)) func))))
(export list.new list.slice list.length list.join list.at list.map)
|
