Return to Answer

added 77 characters in body

edited Apr 17, 2021 at 23:53

R, 5656 44 bytes

Edit: saved 12 bytes after looking at Jonathan Allan's answer: please upvote that!

f=functionfunction(c)`if`(t<-sum(h<-c<=1/sum,d=sum(c|1)),t+fmatch(c[!h])T,01/c<d:1,d+1)-1

f=function(c)`if`(t<-sum(h<-c<=1/sum(c|1)),t+f(c[!h]),0)

Edit: saved 12 bytes after looking at Jonathan Allan's answer: please upvote that!

function(c,d=sum(c|1))match(T,1/c<d:1,d+1)-1

answered Apr 17, 2021 at 23:37

f=function(c)`if`(t<-sum(h<-c<=1/sum(c|1)),t+f(c[!h]),0)