filter-blocklist ( blocklist alphabet -- filtered )

Vocabulary

sqids.private

Inputs

blocklist	an object
alphabet	an object

Outputs

filtered

an object

Definition

USING: ascii math sequences sets ;

IN: sqids.private

:: filter-blocklist ( blocklist alphabet -- filtered )
    alphabet >lower :> lower-alpha blocklist
    [ length 3 >= ] filter [ >lower ] map
    [ [ lower-alpha member? ] all? ] filter members ;