euler066 ( -- D )


Vocabulary
project-euler.066

Inputs
None

Outputs
Dan object


Definition
USING: project-euler.common ranges sequences ;

IN: project-euler.066

: euler066 ( -- D )
1000 [1..b] [ perfect-square? ] reject
[ minimal-x ] maximum-by ;