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