each-percent ( seq quot -- )


Vocabulary
trails

Inputs
seqan object
quotan object


Outputs
None

Definition
USING: kernel math sequences ;

IN: trails

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