euler071 ( -- answer )

Vocabulary

project-euler.071

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math project-euler.common sequences ;

IN: project-euler.071

: euler071 ( -- answer )
    2/5
    [ dup denominator 1000000 <= ] [ 3/7 mediant dup ] produce
    nip penultimate numerator ;