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
|
require "readline"
require_relative "reader"
require_relative "printer"
$core_ns = {
:"=" => lambda {|a,b| a == b},
:throw => lambda {|a| raise MalException.new(a), "Mal Exception"},
:nil? => lambda {|a| a == nil},
:true? => lambda {|a| a == true},
:false? => lambda {|a| a == false},
:symbol => lambda {|a| a.to_sym},
:symbol? => lambda {|a| a.is_a? Symbol},
:keyword => lambda {|a| "\u029e"+a},
:keyword? => lambda {|a| (a.is_a? String) && "\u029e" == a[0]},
:"pr-str" => lambda {|*a| a.map {|e| _pr_str(e, true)}.join(" ")},
:str => lambda {|*a| a.map {|e| _pr_str(e, false)}.join("")},
:prn => lambda {|*a| puts(a.map {|e| _pr_str(e, true)}.join(" "))},
:println => lambda {|*a| puts(a.map {|e| _pr_str(e, false)}.join(" "))},
:readline => lambda {|a| Readline.readline(a,true)},
:"read-string" => lambda {|a| read_str(a)},
:slurp => lambda {|a| File.read(a)},
:< => lambda {|a,b| a < b},
:<= => lambda {|a,b| a <= b},
:> => lambda {|a,b| a > b},
:>= => lambda {|a,b| a >= b},
:+ => lambda {|a,b| a + b},
:- => lambda {|a,b| a - b},
:* => lambda {|a,b| a * b},
:/ => lambda {|a,b| a / b},
:"time-ms" => lambda {|| (Time.now.to_f * 1000).to_i},
:list => lambda {|*a| List.new a},
:list? => lambda {|*a| a[0].is_a? List},
:vector => lambda {|*a| Vector.new a},
:vector? => lambda {|*a| a[0].is_a? Vector},
:"hash-map" =>lambda {|*a| Hash[a.each_slice(2).to_a]},
:map? => lambda {|a| a.is_a? Hash},
:assoc => lambda {|*a| a[0].merge(Hash[a.drop(1).each_slice(2).to_a])},
:dissoc => lambda {|*a| h = a[0].clone; a.drop(1).each{|k| h.delete k}; h},
:get => lambda {|a,b| return nil if a == nil; a[b]},
:contains? => lambda {|a,b| a.key? b},
:keys => lambda {|a| List.new a.keys},
:vals => lambda {|a| List.new a.values},
:sequential? => lambda {|a| sequential?(a)},
:cons => lambda {|a,b| List.new(b.clone.insert(0,a))},
:concat => lambda {|*a| List.new(a && a.reduce(:concat) || [])},
:nth => lambda {|a,b| raise "nth: index out of range" if b >= a.size; a[b]},
:first => lambda {|a| a[0]},
:rest => lambda {|a| List.new(a.size > 0 && a.drop(1) || [])},
:empty? => lambda {|a| a.size == 0},
:count => lambda {|a| return 0 if a == nil; a.size},
:conj => lambda {|*a| a[0].clone.conj(a.drop(1))},
:apply => lambda {|*a| a[0][*a[1..-2].concat(a[-1])]},
:map => lambda {|a,b| List.new(b.map {|e| a[e]})},
:"with-meta" => lambda {|a,b| x = a.clone; x.meta = b; x},
:meta => lambda {|a| a.meta},
:atom => lambda {|a| Atom.new(a)},
:atom? => lambda {|a| a.is_a? Atom},
:deref => lambda {|a| a.val},
:reset! => lambda {|a,b| a.val = b},
:swap! => lambda {|*a| a[0].val = a[1][*[a[0].val].concat(a.drop(2))]},
}
|
