[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