(make-progress-bar) ( percent len completed-ch pending-ch -- string )

Vocabulary

progress-bars

Inputs

percent	an object
len	an object
completed-ch	an object
pending-ch	an object

Outputs

string

an object

Definition

USING: kernel math sequences ;

IN: progress-bars

: (make-progress-bar)
    ( percent len completed-ch pending-ch -- string )
    [ [ * >integer ] keep over - ] 2dip
    [ <repetition> ] bi-curry@ bi* "" append-as ;