Revision: 4483 http://trac.macosforge.org/projects/ruby/changeset/4483 Author: lsansonetti@apple.com Date: 2010-08-31 01:47:59 -0700 (Tue, 31 Aug 2010) Log Message: ----------- adding pi perf test Added Paths: ----------- MacRuby/trunk/perf/misc/pi.rb Added: MacRuby/trunk/perf/misc/pi.rb =================================================================== --- MacRuby/trunk/perf/misc/pi.rb (rev 0) +++ MacRuby/trunk/perf/misc/pi.rb 2010-08-31 08:47:59 UTC (rev 4483) @@ -0,0 +1,19 @@ +def compute_pi(n) + k, a, b, a1, b1 = 2, 4, 1, 12, 4 + n.times do + # Next approximation + p, q, k = k*k, 2*k+1, k+1 + a, b, a1, b1 = a1, b1, p*a+q*a1, p*b+q*b1 + # Print common digits + d = a / b + d1 = a1 / b1 + while d == d1 + #print d + #$stdout.flush + a, a1 = 10*(a%b), 10*(a1%b1) + d, d1 = a/b, a1/b1 + end + end +end + +perf_test('pi') { compute_pi(10000) }