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 ] curry ] dip
    compose [ map-index ] curry with-progress-display ; inline