possible-sums ( seq -- seq )

Vocabulary

project-euler.023.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel math sequences sets ;

IN: project-euler.023.private

: possible-sums ( seq -- seq )
    HS{ } clone
    [ dupd '[ _ [ + _ adjoin ] with each ] each ] keep members ;