find-source ( seq -- elt )

Vocabulary

project-euler.079.private

Inputs

seq

an object

Outputs

elt

an object

Definition

USING: assocs kernel sequences sets ;

IN: project-euler.079.private

: find-source ( seq -- elt )
    unzip diff
    [ "Topological sort failed" throw ] [ first ] if-empty ;