path: root/day17.k5

/ works in oK
d:{x@<x}@.:'-1_0:"day17"
g:150
r:{$[g=t:+/x; ,x; (t<g)&(0<#y); ,/{[v]r[x,*v;1_v]}'(!#y)_\:y; ()]}
s:r[(); d]
#s
#&{x=&/x}@#:'s