skip-consonants ( i str -- i str )

Vocabulary

porter-stemmer

Inputs

i	an object
str	an object

Outputs

i	an object
str	an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: skip-consonants ( i str -- i str )
    2dup bounds-check?
    [ 2dup consonant? [ [ 1 + ] dip skip-consonants ] when ]
    when ;