remove-e? ( str -- ? )

Vocabulary

porter-stemmer

Inputs

str

an object

Outputs

?

an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: remove-e? ( str -- ? )
    dup consonant-seq dup 1 >
    [ 2drop t ]
    [ 1 = [ but-last-slice cvc? not ] [ drop f ] if ] if ;