interesting? ( seq -- ? )

Vocabulary

project-euler.043.private

Inputs

seq

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel ;

IN: project-euler.043.private

: interesting? ( seq -- ? )
    {
        [ [ 17 8 ] dip subseq-divisible? ]
        [ [ 13 7 ] dip subseq-divisible? ]
        [ [ 11 6 ] dip subseq-divisible? ]
        [ [ 7 5 ] dip subseq-divisible? ]
        [ [ 5 4 ] dip subseq-divisible? ]
        [ [ 3 3 ] dip subseq-divisible? ]
        [ [ 2 2 ] dip subseq-divisible? ]
    } 1&& ;