r ( str oldsuffix newsuffix -- str )

Vocabulary

porter-stemmer

Inputs

str	an object
oldsuffix	an object
newsuffix	an object

Outputs

str

an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: r ( str oldsuffix newsuffix -- str )
    pick consonant-seq 0 > [ nip ] [ drop ] if append ;