remove-duplicates ( seq -- seq' )

Vocabulary

soundex.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel sequences ;

IN: soundex.private

: remove-duplicates ( seq -- seq' )
    f swap [ [ = ] keep swap ] reject nip ;