pad-to-min-length ( sbuf alphabet min-length -- )

Vocabulary

sqids.private

Inputs

sbuf	an object
alphabet	an object
min-length	an object

Outputs

None

Definition

USING: kernel math math.order sequences ;

IN: sqids.private

:: pad-to-min-length ( sbuf alphabet min-length -- )
    sbuf length min-length < [
        alphabet first sbuf push alphabet
        [ sbuf length min-length < ] [
            sqids-shuffle dup min-length sbuf length -
            over length min head sbuf push-all
        ] while drop
    ] when ;