(count-perimeters) ( seq -- )

Vocabulary

project-euler.039.private

Inputs

seq

an object

Outputs

None

Definition

USING: kernel math project-euler.common sequences ;

IN: project-euler.039.private

: (count-perimeters) ( seq -- )
    dup sum max-p < [
        dup sum adjust-p-count
        [ u-transform ] [ a-transform ] [ d-transform ] tri
        [ (count-perimeters) ] tri@
    ] [ drop ] if ;