each-percent ( ... seq quot: ( ... elt percent -- ... ) -- ... )

Vocabulary

trails

Inputs

seq	an object
quot	a quotation with stack effect ( ... elt percent -- ... )

Outputs

None

Definition

USING: kernel math sequences ;

IN: trails

: each-percent
    ( ... seq quot: ( ... elt percent -- ... ) -- ... )
    [ dup length ] dip
    [ [ [ 1 + ] ] dip [ / ] curry compose ] dip compose
    each-index ; inline