(euler081) ( matrix -- n )

Vocabulary

project-euler.081.private

Inputs

matrix

an object

Outputs

n

an object

Definition

USING: kernel sequences ;

IN: project-euler.081.private

: (euler081) ( matrix -- n )
    dup first length <iota> dup
    [ pick update-minimal-path-sum ] cartesian-each last last ;