all-triplets ( current-triples limit seed -- triplets )


Vocabulary
rosetta-code.pythagorean-triples

Inputs
current-triplesan object
limitan object
seedan object


Outputs
tripletsan object


Definition
USING: kernel sequences ;

IN: rosetta-code.pythagorean-triples

: all-triplets ( current-triples limit seed -- triplets )
3dup add-triplets
[ candidates-triplets [ all-triplets ] with swapd reduce ]
[ 2drop ] if ;