increment-counts ( n -- )

Vocabulary

project-euler.047.private

Inputs

n

an object

Outputs

None

Definition

USING: math namespaces sequences ;

IN: project-euler.047.private

: increment-counts ( n -- )
    multiples [ sieve get [ 1 + ] change-nth ] each ;