Select Code to Download

pdl> p $v = pdl split '', '30373'
[3 0 3 7 3]

pdl> p cumusumover $v
[3 3 6 13 16]

pdl> ?? cumulative

pdl> p $SLTM

...
 [1 1 1 0 0]
 [1 1 1 1 0]
]

pdl> p $SLTM * $v

...
 [3 0 3 0 0]
 [3 0 3 7 0]
]

pdl> p maxover $SLTM * $v
[0 3 3 3 7]

pdl> p $v > maxover $SLTM * $v
[1 0 0 1 0]