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 @ ] each-index ]
with-progress-display ; inline