1998-01-16 12:13:05 +00:00
|
|
|
#!/usr/local/bin/ruby
|
|
|
|
|
|
|
|
k, a, b, a1, b1 = 2, 4, 1, 12, 4
|
|
|
|
|
2002-12-19 20:56:37 +00:00
|
|
|
loop do
|
1998-01-16 12:13:05 +00:00
|
|
|
# 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
|