area-of-nearest ( -- n )

Vocabulary

project-euler.085.private

Inputs

None

Outputs

n

an object

Definition

USING: accessors ;

IN: project-euler.085.private

: area-of-nearest ( -- n )
    T{ result { area 0 } { distance 2000000 } } 1 2000
    [ compute-result min-by-distance ] each-unique-product
    area>> ;