next-pq ( p1 q1 -- p2 q2 )


Vocabulary
project-euler.009.private

Inputs
p1an object
q1an object


Outputs
p2an object
q2an object


Definition
USING: kernel math ;

IN: project-euler.009.private

: next-pq ( p1 q1 -- p2 q2 ) dup 1 = [ drop 2 + dup ] when 2 - ;