write-numbers ( sbuf alphabet numbers -- alphabet' )

Vocabulary

sqids.private

Inputs

sbuf	an object
alphabet	an object
numbers	an object

Outputs

alphabet'

an object

Definition

USING: kernel math sequences ;

IN: sqids.private

:: write-numbers ( sbuf alphabet numbers -- alphabet' )
    numbers length :> n numbers alphabet [| alpha v i |
        v alpha rest to-id sbuf push-all i n 1 - <
        [ alpha first sbuf push alpha sqids-shuffle ] [ alpha ]
        if
    ] reduce-index ;