x[1]-0,*x:*{x@<x[;1]}(1<#:)#.=5000{x+(+/r*~^r:(0N;#x)#((1+m)#0),x[m]#1)-x*(m:*>x)=(!#x)}\.*0:`day06   / 4074 2793

x[1]-0,*x:*a@<(a:.=5000{x+(+/r*~^r:(0N;#x)#((1+m;x@m)@)#!2)-x*(m:*>x)=!#x}\.*0:`day06)[;1]

\\