(euler076) ( n -- m )

Vocabulary

project-euler.076.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: arrays assocs kernel math ;

IN: project-euler.076.private

: (euler076) ( n -- m )
    dup init
    [ [ ways ] curry each-subproblem ]
    [ [ dup 2array ] dip at 1 - ] 2bi ;