blocked-id? ( id sqids -- ? )

Vocabulary

sqids.private

Inputs

id	an object
sqids	an object

Outputs

?

an object

Definition

USING: accessors ascii combinators kernel sequences ;

IN: sqids.private

:: blocked-id? ( id sqids -- ? )
    id >lower :> lower-id sqids blocklist>> [| word |
        {
            { [ word length 3 = ] [ lower-id word = ] }
            {
                [ word [ digit? ] any? ]
                [ lower-id word head? lower-id word tail? or ]
            }
            [ lower-id word subseq-of? ]
        } cond
    ] any? ;