30 lines
781 B
Plaintext
30 lines
781 B
Plaintext
( 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)
|