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