RosettaCodeData/Task/Greatest-subsequential-sum/Zkl/greatest-subsequential-sum-1.zkl
2023-07-01 13:44:08 -04:00

9 lines
310 B
Text

fcn maxsubseq(s){
s.reduce(fcn([(sum, seq, maxsum, maxseq)], x){
sum=sum+x; seq=T(x).extend(seq);
if(sum < 0) return(0,T,maxsum,maxseq);
if (sum>maxsum) return(sum, seq, sum, seq);
return(sum, seq, maxsum, maxseq);
},
T(0,T,0,T))[3].reverse(); // -->maxseq.reverse()
}