[macruby-changes] [4483] MacRuby/trunk/perf/misc/pi.rb
source_changes at macosforge.org
source_changes at macosforge.org
Tue Aug 31 01:48:02 PDT 2010
Revision: 4483
http://trac.macosforge.org/projects/ruby/changeset/4483
Author: lsansonetti at 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) }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20100831/57f40013/attachment-0001.html>
More information about the macruby-changes
mailing list