Ruby: add stepA_more and rest of core functions.

1 files changed, 30 insertions, 0 deletions

diff --git a/ruby/core.rb b/ruby/core.rb
index 824b59b..212374a 100644
--- a/ruby/core.rb
+++ b/ruby/core.rb
@@ -1,5 +1,11 @@
 $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.is_a? Symbol},
+    :symbol? =>   lambda {|a| a.is_a? Symbol},
     :"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(" "))},
@@ -12,8 +18,21 @@ $core_ns = {
     :- =>         lambda {|a,b| a - b},
     :* =>         lambda {|a,b| a * b},
     :/ =>         lambda {|a,b| a / b},
+
     :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| 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| a[b]},
@@ -21,5 +40,16 @@ $core_ns = {
     :rest =>      lambda {|a| List.new(a.size > 0 && a.drop(1) || [])},
     :empty? =>    lambda {|a| a.size == 0},
     :count =>     lambda {|a| 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))]},
 }