(41C) Pythagorean Triples

[John Keith]

(07-03-2022 08:18 AM)C.Ret Wrote:  PYT:
« 1 +
 [[ 1 2 2 ][ 2 1 2 ][ 2 2 3]] → T n M
 «
   " " 1 n 2 * SUB T →STR + PR1 STR→
   IF n N <
   THEN
      M T 2 DUP2 GET NEG PUT * n PYT
      M T             * n PYT
      M T 1 DUP2 GET NEG PUT * n PYT
   END » »

Store max depth into N register:
4 'N' STO

Set printer online, aim to it and print by typing:
[ 3 4 5 ] 0 PYT

That's a great program! I'm glad you posted it before I posted my sad attempt.