Add goforthanddie.rb

2 files changed, 66 insertions, 0 deletions

diff --git a/README b/README
index 4eb937a..f0edf4a 100644
--- a/README
+++ b/README
@@ -19,6 +19,8 @@ digits.rb:
   Digit combinations for target sum
 gen_object/:
   The start of an erlang OO behaviour
+goforthanddie.rb:
+  It's a pun. It's also a dice roller. It's not going to be an entire Forth.
 logcircle.rb:
   Output cartesian coordinates for the tickmarks along a log scale around a circle
 make.rb:
diff --git a/goforthanddie.rb b/goforthanddie.rb
new file mode 100755
index 0000000..9b458cc
--- /dev/null
+++ b/goforthanddie.rb
@@ -0,0 +1,64 @@
+#!/usr/bin/env ruby
+
+# d20+1    # 20 1 d 1 + p
+# 10d6k8   # 6 10 d 10 8 keep 8 .+ p
+# 3d6>2    # 6 3 d 3 2 > p
+# 3d12/2   # 12 3 d + + 2 / p
+
+stack = []
+
+loop do
+  print "> "
+  gets.split.each do |token|
+    case token
+    when /[0-9]+/
+      stack.push(token.to_i)
+    when "+"
+      a, b = stack.pop(2)
+      stack.push(a + b)
+    when ".+"
+      l = stack.pop
+      h = stack.pop(n)
+      stack.push(h.sum)
+    when "-"
+      a, b = stack.pop(2)
+      stack.push(a - b)
+    when "*"
+      a, b = stack.pop(2)
+      stack.push(a * b)
+    when "/"
+      a, b = stack.pop(2)
+      stack.push(a / b)
+    when "%"
+      a, b = stack.pop(2)
+      stack.push(a % b)
+    when "d", "roll"
+      n = stack.pop
+      d = stack.pop
+      n.times { stack.push(rand(d) + 1) }
+    when "p"
+      puts stack.pop
+    when "s"
+      pp stack
+    when "k", "keep"
+      k = stack.pop
+      n = stack.pop
+      h = stack.pop(n).sort
+      stack.push(*h.pop(k))
+    when ">"
+      t = stack.pop
+      n = stack.pop
+      h = stack.pop(n)
+      stack.push(*h.select{|d|d > t})
+    when "<"
+      t = stack.pop
+      n = stack.pop
+      h = stack.pop(n)
+      stack.push(*h.select{|d|d < t})
+    when "q"
+      exit
+    else
+      puts "I don't know how to #{token}!"
+    end
+  end
+end