ruby: Add number?, fn?, macro?

kanaka · Oct 9, 2017 · 2e13db6 · 2e13db6
1 parent 59436f1
commit 2e13db6
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/ruby/core.rb b/ruby/core.rb
@@ -13,6 +13,9 @@
     :symbol? =>   lambda {|a| a.is_a? Symbol},
     :keyword =>   lambda {|a| "\u029e"+a},
     :keyword? =>  lambda {|a| (a.is_a? String) && "\u029e" == a[0]},
+    :number? =>   lambda {|a| a.is_a? Numeric},
+    :fn? =>       lambda {|a| (a.is_a? Proc) && (!(a.is_a? Function) || !a.is_macro)},
+    :macro? =>    lambda {|a| (a.is_a? Function) && a.is_macro},
 
     :"pr-str" =>  lambda {|*a| a.map {|e| _pr_str(e, true)}.join(" ")},
     :str =>       lambda {|*a| a.map {|e| _pr_str(e, false)}.join("")},

diff --git a/ruby/suggest.mal b/ruby/suggest.mal
@@ -0,0 +1,7 @@
+(def! read-args (fn* [args]
+  (let* [arg (readline "arg> ")]
+    (if (or (nil? arg) (empty? arg))
+      args
+      (read-args (conj args arg))))))
+
+(prn "The args you entered are:" (read-args []))