add-triplets ( current-triples limit triplet -- stop )


Vocabulary
rosetta-code.pythagorean-triples

Inputs
current-triplesan object
limitan object
tripletan object


Outputs
stopan object


Definition
USING: accessors kernel math sequences ;

IN: rosetta-code.pythagorean-triples

: add-triplets ( current-triples limit triplet -- stop )
sum 2dup > [
/i [ + ] curry change-total [ 1 + ] change-primitives
drop t
] [ 3drop f ] if ;