基本勾股數組 (Primitive Pythagorean triple)
程式由網友 Nobody 提供。
這個程式用作找尋基本勾股數，只要輸入一個正偶數及一個正奇數，且兩數是互質關係(HCF=1)，程式會產一組基本勾股數。
程式更新日期: 2009年10月17日
注意: P 是按 SHIFT ×
程式 (94 bytes，使用記憶A, B, D, X, Y及M)
?→X: ?→Y: X→A: Y→M : √( X - Y: √( Y - 1:
Lbl 0 : Y→D : Fix 0: X ÷ Y - . 5: Rnd:
X - YAns→Y: D→X: Y≠0 => Goto 0: Norm 1: log ( D = 1:
. 5AM P 0: 2AM◢ A2 - M2 ◢ A2 + M2
註1: 若輸入的兩數不是一個正偶數及一個正奇數或第一個數小於第二個數，又或者該兩數不是互質關係，程式會出現Math ERROR，表示不能產生基本勾股數。
註2: 勾股數組是滿足勾股定理a2 + b2
= c2的正整數組(a, b, c)，其中的a, b, c稱為勾股數。
例題: 試使用2及1產生勾股數組。
按 Prog 1 再按 2 EXE 1 EXE (顯示4) EXE (顯示3) EXE (顯示5)
所以基本勾股數組為(3, 4, 5)