5 lines
91 B
Text
5 lines
91 B
Text
maxss=: monad define
|
|
AS =. 0,; <:/~@i.&.> #\y
|
|
MX =. (= >./) AS +/ . * y
|
|
y #~ {. MX#AS
|
|
)
|