amicable? ( n -- ? )

Vocabulary

project-euler.021

Inputs

n

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel project-euler.common ;

IN: project-euler.021

: amicable? ( n -- ? )
    dup sum-proper-divisors
    { [ = not ] [ sum-proper-divisors = ] } 2&& ;