to-number ( str alphabet -- n )

Vocabulary

sqids.private

Inputs

str	an object
alphabet	an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: sqids.private

:: to-number ( str alphabet -- n )
    alphabet length :> base str 0
    [ alphabet index swap base * + ] reduce ;