(consonant-seq) ( n i str -- n )

Vocabulary

porter-stemmer

Inputs

n	an object
i	an object
str	an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: (consonant-seq) ( n i str -- n )
    skip-vowels 2dup bounds-check? [
        [ 1 + ] [ 1 + ] [ ] tri* skip-consonants [ 1 + ] dip
        (consonant-seq)
    ] [ 2drop ] if ;