each-with-progress-bar ( seq quot -- )


Vocabulary
progress-bars.models

Inputs
seqan object
quotan object


Outputs
None

Definition
USING: kernel math sequences ;

IN: progress-bars.models

: each-with-progress-bar ( seq quot -- )
[ dup length 1 - ] dip [ [ / set-progress-bar ] curry ] dip
compose [ each-index ] curry with-progress-display ; inline