RosettaCodeData/Task/Greatest-subsequential-sum/J/greatest-subsequential-sum-5.j

6 lines
123 B
Plaintext

maxSS=:monad define
sums=: (0>.+)/\. y
start=: sums i. max=: >./ sums
max (] {.~ #@] |&>: (= +/\) i. 1:) y}.~start
)