decode-numbers ( id alphabet -- )

Vocabulary

sqids.private

Inputs

id	an object
alphabet	an object

Outputs

None

Definition

USING: kernel make sequences splitting strings ;

IN: sqids.private

:: decode-numbers ( id alphabet -- )
    id alphabet first 1string split1 :> ( before after ) before
    empty? [
        before alphabet rest to-number , after
        [ after alphabet sqids-shuffle decode-numbers ] when
    ] unless ;