sum-divisible-by ( target n -- m )

Vocabulary

project-euler.001.private

Inputs

target	an object
n	an object

Outputs

m

an object

Definition

USING: kernel math ;

IN: project-euler.001.private

: sum-divisible-by ( target n -- m )
    [ /i dup 1 + * ] keep * 2 /i ;