minimum-ratio ( seq -- n )

Vocabulary

project-euler.070.private

Inputs

seq

an object

Outputs

n

an object

Definition

USING: kernel math sequences sequences.extras ;

IN: project-euler.070.private

: minimum-ratio ( seq -- n )
    [ [ first2 / ] map arg-min ] keep nth first ;