save-family ( family -- )

Vocabulary

project-euler.051.private

Inputs

family

an object

Outputs

None

Definition

USING: assocs kernel namespaces sets ;

IN: project-euler.051.private

: save-family ( family -- )
    dup family-count get at 8 =
    [ large-families get adjoin ] [ drop ] if ;