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 [ [ + ] ] dip [ adjoin ] curry compose
        [ with each ] 2curry each
    ] keep members ;