ways ( n i table -- )

Vocabulary

project-euler.076.private

Inputs

n	an object
i	an object
table	an object

Outputs

None

Definition

USING: arrays assocs kernel math ;

IN: project-euler.076.private

: ways ( n i table -- )
    over zero?
    [ 3drop ] [
        [ [ 1 - 2array ] dip at ] [ [ use 2array ] dip at + ]
        [ [ 2array ] dip set-at ] 3tri
    ] if ;