monotonic-count ( seq quot: ( elt1 elt2 -- ? ) -- newseq )

Vocabulary

math.extras

Inputs

seq	an object
quot	a quotation with stack effect ( elt1 elt2 -- ? )

Outputs

newseq

an object

Definition

USING: kernel math sequences ;

IN: math.extras

: monotonic-count ( seq quot: ( elt1 elt2 -- ? ) -- newseq )
    over empty?
    [ 2drop { } ] [
        [ 0 swap unclip-slice swap ] dip
        [ [ 1 + ] [ drop 0 ] if ] compose [ keep over ] curry
        { } map-as 2nip 0 prefix
    ] if ; inline