soundex ( string -- soundex )


Vocabulary
soundex

Inputs
stringan object


Outputs
soundexan object


Definition
USING: ascii kernel sequences soundex.private ;

IN: soundex

: soundex ( string -- soundex )
>upper [ LETTER? ] filter
[ remove-hw soundex-digits remove-duplicates remove-aeiouy ]
keep first ?replace-first pad-4 ;