consonant? ( i str -- ? )

Vocabulary

porter-stemmer

Inputs

i	an object
str	an object

Outputs

?

an object

Definition

USING: english kernel math sequences ;

IN: porter-stemmer

: consonant? ( i str -- ? )
    2dup nth dup vowel?
    [ 3drop f ] [
        121 = [
            over zero?
            [ 2drop t ] [ [ 1 - ] dip consonant? not ] if
        ] [ 2drop t ] if
    ] if ;