sum-1toN ( n -- sum )


Vocabulary
project-euler.148.private

Inputs
nan object


Outputs
suman object


Definition
USING: kernel math ;

IN: project-euler.148.private

: sum-1toN ( n -- sum ) dup 1 + * 2/ ; inline