-eed ( str -- str )

Vocabulary

porter-stemmer

Inputs

str

an object

Outputs

str

an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: -eed ( str -- str )
    dup consonant-seq 0 > "ee" "eed" ? append ;