sum-proper-divisors ( n -- sum )


Vocabulary
project-euler.common

Inputs
nan object


Outputs
suman object


Definition
USING: kernel math ;

IN: project-euler.common

: sum-proper-divisors ( n -- sum ) [ sum-divisors ] keep - ;