Greatest subsequential sum: Difference between revisions

<syntaxhighlight lang="Quackery"> [ stack ] is maxseq ( --> s )

[ stack ] is maxsum ( --> s )

0 maxsum put

dup dup size times

[ dup[] size0 timesrot

[ dup i^ 1+ splitwitheach

drop dup sum[ rot over join

dup maxsum share > iffunrot +

[ dup maxsum replaceshare >

maxseq replace ]if

else 2drop ] [ dup maxsum replace

2drop behead drop dup ]

maxsum2drop take

' [ [ 1 2 3 4 5 -8 -9 -20 40 25 -5 ]

[ -1 -2 3 5 6 -2 -1 4 -4 2 -1 ]

[ -1 -2 -3 -4 -5 ]

[ ] ]