summaryrefslogtreecommitdiff
path: root/ruby_1_8_6/sample/pi.rb
diff options
context:
space:
mode:
Diffstat (limited to 'ruby_1_8_6/sample/pi.rb')
-rw-r--r--ruby_1_8_6/sample/pi.rb18
1 files changed, 18 insertions, 0 deletions
diff --git a/ruby_1_8_6/sample/pi.rb b/ruby_1_8_6/sample/pi.rb
new file mode 100644
index 0000000000..63be974285
--- /dev/null
+++ b/ruby_1_8_6/sample/pi.rb
@@ -0,0 +1,18 @@
+#!/usr/local/bin/ruby
+
+k, a, b, a1, b1 = 2, 4, 1, 12, 4
+
+loop 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