euler021 ( -- answer )

Vocabulary

project-euler.021

Inputs

None

Outputs

answer

an object

Definition

USING: kernel ranges sequences ;

IN: project-euler.021

: euler021 ( -- answer )
    10000 [1..b] [ dup amicable? [ drop 0 ] unless ] map-sum ;