consonant-end? ( n seq -- ? )

Vocabulary

porter-stemmer

Inputs

n	an object
seq	an object

Outputs

?

an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: consonant-end? ( n seq -- ? )
    [ length swap - ] keep consonant? ;