Trabb Pardo–Knuth algorithm: Difference between revisions
m
add RPL
(add RPL) |
m (add RPL) |
||
Line 3,765:
≪ DUP ABS √ SWAP 3 ^ + ≫ ''''FUNC'''' STO
≪ "Enter number,
≪ 1 11 '''START''' HALT s SWAP + 's' STO '''NEXT'''
'''FOR''' j s j GET
'''FUNC'''
Line 3,795:
|}
On HP-48 and beyond, the first
≪ { }
1 11 '''START''' "Enter a number" { "?" V } INPUT + '''NEXT''' → s
≪ DROP 1 11
{{in}}
<pre>
| |||