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 + _ / @ ] each-index ; inline