next-table ( assoc -- assoc )

Vocabulary

project-euler.164.private

Inputs

assoc

an object

Outputs

assoc

an object

Definition

USING: assocs kernel sequences ;

IN: project-euler.164.private

: next-table ( assoc -- assoc )
    H{ } clone swap
    [ swap next-keys [ pick at+ ] with each ] assoc-each ;