Vocabulary
porter-stemmer

Inputs
stra string


Outputs
newstra new string


Word description
Deals with -c-, -full, -ness, etc. Similar strategy to step2.

Definition


: step3 ( str -- newstr )
{
{ [ "icate" ?tail ] [ "icate" "ic" r ] }
{ [ "ative" ?tail ] [ "ative" "" r ] }
{ [ "alize" ?tail ] [ "alize" "al" r ] }
{ [ "iciti" ?tail ] [ "iciti" "ic" r ] }
{ [ "ical" ?tail ] [ "ical" "ic" r ] }
{ [ "ful" ?tail ] [ "ful" "" r ] }
{ [ "ness" ?tail ] [ "ness" "" r ] }
[ ]
} cond ;