clean ( seq -- seq )

Vocabulary

project-euler.043.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: sequences sets ;

IN: project-euler.043.private

: clean ( seq -- seq )
    [ unclip 1 head prefix concat ] map [ all-unique? ] filter ;