貼現現金流(I)
程式可以計算貼現現金流 (Discounted cash flow: DCF) 問題，輸入的現金流可以不依時間順序，輸入錯誤現金流 ，只要輸入相反正負號的現金流即可刪除。
程式編寫日期: 2007年8月11日
程式 (45 bytes)
Mem clear: ?→A: ?→B:
1+B÷100A→B: Lbl 0: ?→C:
?→A: C÷B^AM+: M→C: Goto 0
註: 若果想保留一些記憶用作儲存臨時數據，可將程式中"Mem clear"改為"MM-"，而程式所使用的記憶為A，B，C及M。
例題: 一公司以$20000購買一機器，以下為每年年結時可以節省的金額:
| 年 | 1 | 2 | 3 | 4 |
| 金額 | $5000 | $7500 | $9000 | $11000 |
假設年折現率 (Discount rate)為10%，試計算凈現值。
按 Prog 1 再按 1 EXE (每年複利計算期數) 10 EXE (年折現率)
- 20000 EXE (負數代表支出) 0 EXE (期數0代表現時)
5000 EXE (正數代表收入) 1 EXE (期數)
7500 EXE 2 EXE 9000 EXE 3 EXE 11000 EXE 4 EXE (顯示凈現值為 $5018.78)
計算完結後按 AC 終止程式