max-path ( triangle -- n )

Vocabulary

project-euler.common

Inputs

triangle

an object

Outputs

n

an object

Definition

USING: kernel math math.vectors project-euler.common.private
sequences ;

IN: project-euler.common

: max-path ( triangle -- n )
    dup length 1 >
    [ 2 cut* first2 max-children v+ suffix max-path ]
    [ first first ] if ;