euler049 ( -- answer )

Vocabulary

project-euler.049

Inputs

None

Outputs

answer

an object

Definition

USING: kernel project-euler.049.private sequences ;

IN: project-euler.049

: euler049 ( -- answer )
    potential-sequences [ find-unusual-terms ] map sift
    [ { 1487 4817 8147 } = not ] find nip 4digit-concat ;