23 lines
422 B
Plaintext
23 lines
422 B
Plaintext
go =>
|
|
pi2(1,0,1,1,3,3,0),
|
|
nl.
|
|
|
|
pi2(Q,R,T,K,N,L,C) =>
|
|
if C == 50 then
|
|
nl,
|
|
pi2(Q,R,T,K,N,L,0)
|
|
else
|
|
if (4*Q + R-T) < (N*T) then
|
|
print(N),
|
|
P := 10*(R-N*T),
|
|
pi2(Q*10, P, T, K, ((10*(3*Q+R)) div T)-10*N, L,C+1)
|
|
else
|
|
P := (2*Q+R)*L,
|
|
M := (Q*(7*K)+2+(R*L)) div (T*L),
|
|
H := L+2,
|
|
J := K+ 1,
|
|
pi2(Q*K, P, T*L, J, M, H, C)
|
|
end
|
|
end,
|
|
nl.
|