euler004 ( -- answer )

Vocabulary

project-euler.004

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math project-euler.004.private sequences sets ;

IN: project-euler.004

: euler004 ( -- answer )
    source-004 dup [ * ] cartesian-map union-all max-palindrome
    ;