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

8 lines
104 B
Plaintext

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