(ptriplet) ( target p q triplet -- target p q )

Vocabulary

project-euler.009.private

Inputs

target	an object
p	an object
q	an object
triplet	an object

Outputs

target	an object
p	an object
q	an object

Definition

USING: kernel sequences ;

IN: project-euler.009.private

: (ptriplet) ( target p q triplet -- target p q )
    sum pickd = [ next-pq 2dup abc (ptriplet) ] unless ;