next-triplet ( triplet T -- triplet' )


Vocabulary
rosetta-code.pythagorean-triples

Inputs
tripletan object
Tan object


Outputs
triplet'an object


Definition
USING: arrays kernel math.matrices sequences ;

IN: rosetta-code.pythagorean-triples

: next-triplet ( triplet T -- triplet' )
[ 1array ] [ mdot ] bi* first ;