Reference Guide

RPL Programming 1-23
Example: The following program calculates n + 2n +3n + … for a value of n. The program stops when the sum
exceeds 1000, and returns the sum and the coefficient of n.
Program: Comments:
«
DUP 1
→ n s c
Duplicates n, stores the value into n and
s, and initializes c to 1.
«
Starts the defining procedure.
DO
Starts the loop-clause.
'c' INCR
Increments the counter by 1. (See Using
Loop Counters.)
n * 's' STO+
Calculates c × n and adds the product to
s.
UNTIL
Starts the test-clause.
s 1000 >
Repeats loop until s > 1000.
END
Ends the test-clause.
s c
Puts s and c on the stack.
»
Ends the defining procedure.
»