init ( n -- table )

Vocabulary

project-euler.076.private

Inputs

n

an object

Outputs

table

an object

Definition

USING: arrays assocs kernel ranges ;

IN: project-euler.076.private

: init ( n -- table )
    [1..b] [ 0 2array 0 ] H{ } map>assoc 1 { 0 0 } pick set-at ;