Commit | Line | Data |
---|---|---|
8bf53bec JM |
1 | $core_ns = { |
2 | :"=" => lambda {|a,b| a == b}, | |
3 | :"pr-str" => lambda {|*a| a.map {|e| _pr_str(e, true)}.join(" ")}, | |
4 | :"str" => lambda {|*a| a.map {|e| _pr_str(e, false)}.join("")}, | |
5 | :"prn" => lambda {|*a| puts(a.map {|e| _pr_str(e, true)}.join(" "))}, | |
6 | :"println" => lambda {|*a| puts(a.map {|e| _pr_str(e, false)}.join(" "))}, | |
7 | :< => lambda {|a,b| a < b}, | |
8 | :<= => lambda {|a,b| a <= b}, | |
9 | :> => lambda {|a,b| a > b}, | |
10 | :>= => lambda {|a,b| a >= b}, | |
11 | :+ => lambda {|a,b| a + b}, | |
12 | :- => lambda {|a,b| a - b}, | |
13 | :* => lambda {|a,b| a * b}, | |
14 | :/ => lambda {|a,b| a / b}, | |
15 | :list => lambda {|*a| List.new a}, | |
16 | :list? => lambda {|*a| a[0].is_a? List}, | |
17 | :empty? => lambda {|a| a.size == 0}, | |
18 | :count => lambda {|a| a.size}, | |
19 | } | |
20 |