Editing RPL (programming language) (section)

===Conditional statements===

====IF/THEN/ELSE/END====
RPL supports basic conditional testing through the IF/THEN/ELSE structure. The basic syntax of this block is:

  IF condition THEN if-true [ELSE if-false] END

The following example tests to see if the number at the bottom of the stack is "1" and, if so, replaces it with "Equal to one":

  « IF 1 == THEN "Equal to one" END »

The IF construct evaluates the condition then tests the bottom of the stack for the result.  As a result, RPL can optionally support FORTH-style IF blocks, allowing the condition to be determined before the block. By leaving the condition empty, the IF statement will not make any changes to the stack during the condition execution and will use the existing result at the bottom of the stack for the test:

  « 1 == IF THEN "Equal to one" END »

====IFT/IFTE====
Postfix conditional testing may be accomplished by using the IFT ("if-then") and IFTE ("if-then-else") functions.

IFT and IFTE pop two or three commands off the stack, respectively. The topmost value is evaluated as a Boolean and, if true, the second topmost value is pushed back on the stack.  IFTE allows a third "else" value that will be pushed back on the stack if the Boolean is false.

The following example uses the IFT function to pop an object from the bottom of the stack and, if it is equal to 1, replaces it with "One":

  « 1 == "One" IFT »

The following example uses the IFTE function to pop an object from the bottom of the stack and, if it is equal to 1, replaces it with "One". If it does not equal 1, it replaces it with the string "Not one":

  « 1 == "One" "Not one" IFTE »

IFT and IFTE will evaluate a program block given as one of its arguments, allowing a more compact form of conditional logic than an IF/THEN/ELSE/END structure. The following example pops an object from the bottom of the stack, and replaces it with "One", "Less", or "More", depending on whether it is equal to, less than, or greater than 1.

  «
    DUP 1 ==
    « DROP "One" »
    « 1 < "Less" "More" IFTE »
    IFTE
  »

====CASE/THEN/END====
To support more complex conditional logic, RPL provides the CASE/THEN/END structure for handling multiple exclusive tests. Only one of the branches within the CASE statement will be executed. The basic syntax of this block is:

  CASE 
   condition_1 THEN if-condition_1 END 
    ...
   condition_n THEN if-condition_n END
   if-none
  END

The following code illustrates the use of a CASE/THEN/END block. Given a letter at the bottom of the stack, it replaces it with its string equivalent or "Unknown letter":

  « 
    CASE 
       DUP "A" == THEN "Alpha" END
       DUP "B" == THEN "Beta" END
       DUP "G" == THEN "Gamma" END
       "Unknown letter"
    END
    SWAP DROP  @ Get rid of the original letter
  »

This code is identical to the following nested IF/THEN/ELSE/END block equivalent:

  «
     IF DUP "A" ==
     THEN
        "Alpha"
     ELSE 
        IF DUP "B" == THEN
           "Beta"
        ELSE 
           IF DUP "G" == THEN
              "Gamma"
           ELSE
              "Unknown letter"
           END
        END 
     END
     SWAP DROP  @ Get rid of the original letter
  »