starting-offset ( numbers alphabet -- offset )

Vocabulary

sqids.private

Inputs

numbers	an object
alphabet	an object

Outputs

offset

an object

Definition

USING: math sequences ;

IN: sqids.private

:: starting-offset ( numbers alphabet -- offset )
    alphabet length :> len numbers numbers length
    [| sum v i | v len mod alphabet nth sum + i + ] reduce-index
    len mod ;