4 lines
99 B
Text
4 lines
99 B
Text
maxSS2=:monad define
|
|
start=. (i. >./) (0>.+)/\. y
|
|
({.~ # |&>: [: (i.>./@,&0) +/\) y}.~start
|
|
)
|