Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 18 lines (16 sloc) 0.323 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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
Something went wrong with that request. Please try again.