Data commit

Task/Pi/Bracmat/pi.bracmat

@@ -0,0 +1,29 @@
+  ( pi
+  =   f,q r t k n l,first
+    .   !arg:((=?f),?q,?r,?t,?k,?n,?l)
+      & yes:?first
+      &   whl
+        ' (   4*!q+!r+-1*!t+-1*!n*!t:<0
+            & f$!n
+            & (   !first:yes
+                & f$"."
+                & no:?first
+              |
+              )
+            & "compute and update variables for next cycle"
+            & 10*(!r+-1*!n*!t):?nr
+            & div$(10*(3*!q+!r).!t)+-10*!n:?n
+            & !q*10:?q
+            & !nr:?r
+          |   "compute and update variables for next cycle"
+            & (2*!q+!r)*!l:?nr
+            & div$(!q*(7*!k+2)+!r*!l.!t*!l):?nn
+            & !q*!k:?q
+            & !t*!l:?t
+            & !l+2:?l
+            & !k+1:?k
+            & !nn:?n
+            & !nr:?r
+          )
+  )
+& pi$((=.put$!arg),1,0,1,1,3,3)