reduce-with-progress-bar ( seq identity quot -- )

Vocabulary

progress-bars.models

Inputs

seq	an object
identity	an object
quot	an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: progress-bars.models

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