diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-01-16 12:13:05 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-01-16 12:13:05 +0000 |
| commit | 3db12e8b236ac8f88db8eb4690d10e4a3b8dbcd4 (patch) | |
| tree | b3c086e437cab449f90ba637710daed0ddfec4c4 /sample/pi.rb | |
| parent | 392296c12de9d7f9be03a8205250ba0844cb9d38 (diff) | |
| download | ruby-3db12e8b236ac8f88db8eb4690d10e4a3b8dbcd4.tar.gz | |
Initial revisionv1_0_r2
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample/pi.rb')
| -rw-r--r-- | sample/pi.rb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/sample/pi.rb b/sample/pi.rb new file mode 100644 index 0000000000..49067cc347 --- /dev/null +++ b/sample/pi.rb @@ -0,0 +1,18 @@ +#!/usr/local/bin/ruby + +k, a, b, a1, b1 = 2, 4, 1, 12, 4 + +while TRUE + # 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 |