[macruby-changes] [1221] MacRuby/branches/experimental/bench.rb

[source_changes at macosforge.org]

Revision: 1221
          http://trac.macosforge.org/projects/ruby/changeset/1221
Author:   lsansonetti at apple.com
Date:     2009-03-27 17:17:12 -0700 (Fri, 27 Mar 2009)
Log Message:
-----------
better output + added a test for ackermann

Modified Paths:
--------------
    MacRuby/branches/experimental/bench.rb

Modified: MacRuby/branches/experimental/bench.rb
===================================================================
--- MacRuby/branches/experimental/bench.rb	2009-03-28 00:04:02 UTC (rev 1220)
+++ MacRuby/branches/experimental/bench.rb	2009-03-28 00:17:12 UTC (rev 1221)
@@ -34,6 +34,16 @@
   end
 end
 
+def ack(m, n)
+  if m == 0 then
+    n + 1
+  elsif n == 0 then
+    ack(m - 1, 1)
+  else
+    ack(m - 1, ack(m, n - 1))
+  end
+end
+
 class Class1
   def method1; end
   def method2(x); x; end
@@ -61,7 +71,7 @@
 
 require 'benchmark'
 
-Benchmark.bm(3) do |bm|
+Benchmark.bm(30) do |bm|
 
   # Fixnum arithmetic.
   bm.report('10 fib(30)') do
@@ -72,6 +82,7 @@
   end
   bm.report('tak') { tak(18,9,0) }
   bm.report('tarai') { tarai(12,6,0) }
+  bm.report('ackermann') { ack(3,9) }
 
   # Loops.
   bm.report('10000000 times loop') do
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20090327/2cd097c0/attachment-0001.html>