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