euler070 ( -- answer )

Vocabulary

project-euler.070

Inputs

None

Outputs

answer

an object

Definition

USING: math.combinatorics project-euler.070.private sequences ;

IN: project-euler.070

: euler070 ( -- answer )
    likely-prime-factors 2 all-combinations [ n-and-phi ] map
    [ fit-requirements? ] filter minimum-ratio ;