質因子連乘式
程式編寫日期: 2007年9月19日
程式 (58 bytes,使用記憶為A及M)
?→A: MM-: Lbl 0: 2M+: M=4 => 1M-: Fix 0:
Lbl 1: A- M Rnd( A nCr 1 ÷ M => Goto 0: M◢
A ÷ M→A: A - 1 => Goto 1: Norm 1: A
例題: 求 110的質因子連乘式。
按 Prog 1 110 EXE (顯示2) EXE (顯示5) EXE (顯示11) EXE (顯示1,表示計算完結)
所以 110 = 2 × 5 × 11