[macruby-changes] [3857] MacRuby/trunk/sample-macruby/Scripts/gcd/benchmarks.rb

[source_changes at macosforge.org]

Revision: 3857
          http://trac.macosforge.org/projects/ruby/changeset/3857
Author:   ernest.prabhakar at gmail.com
Date:     2010-03-24 13:38:11 -0700 (Wed, 24 Mar 2010)
Log Message:
-----------
Tabular output for gcd/benchmarks.rb

Modified Paths:
--------------
    MacRuby/trunk/sample-macruby/Scripts/gcd/benchmarks.rb

Modified: MacRuby/trunk/sample-macruby/Scripts/gcd/benchmarks.rb
===================================================================
--- MacRuby/trunk/sample-macruby/Scripts/gcd/benchmarks.rb	2010-03-24 20:38:09 UTC (rev 3856)
+++ MacRuby/trunk/sample-macruby/Scripts/gcd/benchmarks.rb	2010-03-24 20:38:11 UTC (rev 3857)
@@ -3,6 +3,11 @@
 require 'dispatch'
 require 'benchmark'
 
+$max_tasks = 256
+$reps = 1024
+$folds = 32
+$results = nil#[]
+
 class Benchmark
   def self.repeat(count, label="", &block)
     raise "count: #{count} < 1" if count < 1
@@ -12,18 +17,6 @@
   end
 end
 
-$max_tasks = 256
-$reps = 1024
-$folds = 32
-$results = nil#[]
-
-METHODS = %w(iter p_iter apply concur serial nqueue njobs)
-
-puts "GCD BENCHMARKS"
-puts "MaxTasks\t#{$max_tasks}\tFolds\t#{$folds}\tReps\t#{$reps}"
-#puts METHODS
-puts "METHOD\tTASKS\tTIME µsec"
-
 def work_function(i)
     x = 1.0+i*i
     $folds.times {|j| x = Math::tan(Math::PI/2 - Math::atan(Math::exp(2*Math::log(Math::sqrt(x))))) }
@@ -73,14 +66,21 @@
 
 def bench(method, count=1)
   proc = Proc.new { send(method.to_sym, count) }
-  t = Benchmark.repeat($reps, "%6s" % method, &proc)
-  puts "#{method}\t#{count}\t%6.2f" % (t.real*1e6/count)
+  Benchmark.repeat($reps, "%6s" % method, &proc).real*1e6/count
 end
 
-n = 1
-while n <= $max_tasks do
-  METHODS.each { |method| bench(method, n) }
-  n *= 2
+METHODS = %w(iter p_iter apply concur serial nqueue njobs)
+TASKS = [t = 1]
+TASKS << t *= 2 while t < $max_tasks
+
+print "GCD BENCHMARKS\tMaxTask\t#{$max_tasks}\tFolds\t#{$folds}\tReps\t#{$reps}\n"
+print "T µsec\t#{TASKS.join("\t   ")}"
+
+METHODS.each do |method|
+  print "\n#{method}"
+  TASKS.each do |n|
+      print "\t%6.2f" % bench(method, n)
+   end
 end
 
-puts "Results: #{$results}" if not $results.nil?
+print "Results: #{$results.join("\t")}" if not $results.nil?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20100324/40797772/attachment-0001.html>