Data commit

Task/Pi/Picat/pi.picat

@@ -0,0 +1,22 @@
+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.