min-by-distance ( seq seq -- seq )

Vocabulary

project-euler.085.private

Inputs

seq	an object
seq	an object

Outputs

seq

an object

Definition

USING: accessors kernel math ;

IN: project-euler.085.private

: min-by-distance ( seq seq -- seq )
    [ [ distance>> ] bi@ < ] most ; inline