uniq-lines ( -- )

Vocabulary

tools.uniq

Inputs

None

Outputs

None

Definition

USING: io kernel ;

IN: tools.uniq

: uniq-lines ( -- )
    f [ 2dup = [ dup print ] unless nip ] each-line drop ;