possible? ( seq -- ? )

Vocabulary

project-euler.035.private

Inputs

seq

an object

Outputs

?

an object

Definition

USING: kernel math sequences ;

IN: project-euler.035.private

: possible? ( seq -- ? )
    dup length 1 > [ [ even? ] none? ] [ drop t ] if ;