to-id ( n alphabet -- str )

Vocabulary

sqids.private

Inputs

n	an object
alphabet	an object

Outputs

str

an object

Definition

USING: kernel math sequences strings ;

IN: sqids.private

:: to-id ( n alphabet -- str )
    alphabet length :> base SBUF" " clone n
    [ base /mod alphabet nth pick push dup 0 > ] loop drop
    reverse! >string ;