map-with-progress-bar ( seq quot -- seq' )

Vocabulary

progress-bars.models

Inputs

seq	an object
quot	an object

Outputs

seq'

an object

Definition

USING: kernel math sequences ;

IN: progress-bars.models

: map-with-progress-bar ( seq quot -- seq' )
    [ dup length 1 - ] dip
    '[ [ _ / set-progress-bar @ ] map-index ]
    with-progress-display ; inline