cvc? ( str -- ? )

Vocabulary

porter-stemmer

Inputs

str

an object

Outputs

?

an object

Definition

USING: combinators kernel math sequences ;

IN: porter-stemmer

: cvc? ( str -- ? )
    {
        { [ dup length 3 < ] [ drop f ] }
        { [ 1 over consonant-end? not ] [ drop f ] }
        { [ 2 over consonant-end? ] [ drop f ] }
        { [ 3 over consonant-end? not ] [ drop f ] }
        [ "wxy" last-is? not ]
    } cond ;