double-consonant? ( i str -- ? )

Vocabulary

porter-stemmer

Inputs

i	an object
str	an object

Outputs

?

an object

Definition

USING: kernel math sequences ;

IN: porter-stemmer

: double-consonant? ( i str -- ? )
    over 1 <
    [ 2drop f ] [
        2dup nth [ over 1 - over nth ] dip =
        [ consonant? ] [ 2drop f ] if
    ] if ;