(topological-sort) ( seq -- )

Vocabulary

project-euler.079.private

Inputs

seq

an object

Outputs

None

Definition

USING: kernel make math sequences ;

IN: project-euler.079.private

: (topological-sort) ( seq -- )
    dup length 1 >
    [ dup find-source dup , remove-source (topological-sort) ]
    [ [ first [ , ] each ] unless-empty ] if ;