mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Greatest-subsequential-sum/J/greatest-subsequential-sum-6.j

5 lines
99 B
Plaintext
Raw Permalink Blame History

maxSS2=:monad define
start=. (i. >./) (0>.+)/\. y
({.~ # |&>: [: (i.>./@,&0) +/\) y}.~start
)
Reference in New Issue View Git Blame Copy Permalink