find-unusual-terms ( seq -- seq/? )

Vocabulary

project-euler.049.private

Inputs

seq

an object

Outputs

seq/?

an object

Definition

USING: kernel math sequences ;

IN: project-euler.049.private

: find-unusual-terms ( seq -- seq/? )
    unclip-slice over (find-unusual-terms)
    [ nip ]
    [ dup length 3 >= [ find-unusual-terms ] [ drop f ] if ] if*
    ;