euler098 ( -- answer )

Vocabulary

project-euler.098

Inputs

None

Outputs

answer

an object

Definition

USING: assocs kernel math.order ranges sequences ;

IN: project-euler.098

:: euler098 ( -- answer )
    wordlist make-anagrams :> words words keys maximum :> n n
    squarelist make-anagrams :> squares 0 n [1..b] [| i |
        words i of :> w squares i of :> s w s and [
            w s
            [ [ first2 ] bi@ square-anagram [ max ] when* ]
            cartesian-each
        ] when
    ] each ;