ll->l ( str -- newstr )

Vocabulary

porter-stemmer

Inputs

str

an object

Outputs

newstr

an object

Definition

USING: combinators kernel math sequences ;

IN: porter-stemmer

: ll->l ( str -- newstr )
    {
        { [ dup last 108 = not ] [ ] }
        { [ dup length 1 - over double-consonant? not ] [ ] }
        { [ dup consonant-seq 1 > ] [ but-last-slice ] }
        [ ]
    } cond ;