Added: MacRuby/trunk/perf/misc/pi.rb (0 => 4483)

--- 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) }