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


Vocabulary
trails

Inputs
seqan object
quota quotation with stack effect ( ... elt percent -- ... )


Outputs
None

Definition


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