pad-4 ( seq -- seq' )

Vocabulary

soundex.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: sequences ;

IN: soundex.private

: pad-4 ( seq -- seq' ) "000" append 4 head ;