remove-aeiouy ( seq -- seq' )

Vocabulary

soundex.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel sequences ;

IN: soundex.private

: remove-aeiouy ( seq -- seq' )
    unclip [ [ "AEIOUY" member? ] reject ] [ prefix ] bi* ;