
Create a program to continually calculate and output the next decimal digit of   



π


{\displaystyle \pi }

   (pi).

The program should continue forever (until it is aborted by the user) calculating and outputting each decimal digit in succession.

The output should be a decimal sequence beginning   3.14159265 ...



Note: this task is about   calculating   pi.   For information on built-in pi constants see Real constants and functions.



Related Task Arithmetic-geometric mean/Calculate Pi

q = 1; r = 0; t = 1
k = 1; n = 3; l = 3
 
nn = null; nr = null
first = true
 
while true
	if (((4 * q) + r) - t) < (n * t)
		print n
		if first
			print "."
			first = false
		end
		nr = int(10 * (r - (n * t)))
		n = int((10 * ((3 * q) + r)) / t) - (10 * n)
		q *= 10
		r = nr
	else
		nr = int(((2 * q) + r) * l)
		nn = int((((q * (7 * k)) + 2) + (r * l)) / (t * l))
		q *= k
		t *= l
		l += 2
		k += 1
		n = nn
		r = nr
	end if
end while