validate-alphabet ( alphabet -- alphabet )

Vocabulary

sqids.private

Inputs

alphabet

an object

Outputs

alphabet

an object

Definition

USING: kernel math sequences sets sqids ;

IN: sqids.private

: validate-alphabet ( alphabet -- alphabet )
    dup [ 127 > ] any? [ alphabet-multibyte-char ] when
    dup length 3 < [ alphabet-too-short ] when dup all-unique?
    [ alphabet-duplicate-chars ] unless ;