sum-divisors ( n -- sum )

Vocabulary

project-euler.common

Inputs

n

an object

Outputs

sum

an object

Definition

USING: kernel math project-euler.common.private sequences ;

IN: project-euler.common

: sum-divisors ( n -- sum )
    dup 4 < [ { 0 1 3 4 } nth ] [ (sum-divisors) ] if ;