aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Greatest-subsequential-sum/Zkl/greatest-subsequential-sum-1.zkl Normal file
View file

@ -0,0 +1,9 @@
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()
}

6
Task/Greatest-subsequential-sum/Zkl/greatest-subsequential-sum-2.zkl Normal file
View file

@ -0,0 +1,6 @@
s:=maxsubseq(T(-1,-2,3,5,6,-2,-1,4,-4,2,-1));
println(s.sum()," : ",s);
s:=maxsubseq(T(-1,-2)); println(s.sum()," : ",s);
s:=maxsubseq(T); println(s.sum()," : ",s);