try-all ( -- n )

Vocabulary

project-euler.064.private

Inputs

None

Outputs

n

an object

Definition

USING: math project-euler.common ranges sequences ;

IN: project-euler.064.private

: try-all ( -- n )
    2 10000 [a..b] [ perfect-square? ] reject
    [ find-period ] map [ odd? ] filter length ;