adjust-p-count ( n -- )

Vocabulary

project-euler.039.private

Inputs

n

an object

Outputs

None

Definition

USING: kernel math namespaces project-euler.039 ranges sequences
;

IN: project-euler.039.private

: adjust-p-count ( n -- )
    max-p 1 - over <range> p-count get
    [ [ 1 + ] change-nth ] curry each ;