RosettaCodeData/Task/Greatest-subsequential-sum/Factor/greatest-subsequential-sum-...

4 lines
98 B
Factor

( scratchpad ) { -1 -2 3 5 6 -2 -1 4 -4 2 -1 } max-subseq dup sum swap . .
{ 3 5 6 -2 -1 4 }
15