euler011 ( -- answer )

Vocabulary

project-euler.011

Inputs

None

Outputs

answer

an object

Definition

USING: combinators make project-euler.011.private sequences ;

IN: project-euler.011

: euler011 ( -- answer )
    [
        {
            [ horizontal ]
            [ vertical ]
            [ diagonal/ ]
            [ diagonal\ ]
        } [ ( -- matrix ) call-effect 4 max-product , ] each
    ] { } make maximum ;