RosettaCodeData/Task/Pi/J/pi-1.j

7 lines
94 B
Plaintext

pi=:3 :0
smoutput"0'3.1'
n=.0 while.n=.n+1 do.
smoutput-/1 10*<.@o.10x^1 0+n
end.
)