Chris Lattner | e44f1db | 2003-11-23 18:12:22 +0000 | [diff] [blame] | 1 | # |
2 | # RROT2 test | ||||
3 | # | ||||
4 | # Logic: // w1 w2 w3 w4 w5 w6 -- w5 w6 w1 w2 w3 w4 | ||||
5 | # | ||||
6 | FORWARD success; | ||||
7 | FORWARD failure; | ||||
8 | : try_0 0 = IF success ELSE failure ENDIF ; | ||||
9 | : try_5 5 = IF try_0 ELSE failure ENDIF ; | ||||
10 | : try_6 6 = IF try_5 ELSE failure ENDIF ; | ||||
11 | : try_1 1 = IF try_6 ELSE failure ENDIF ; | ||||
12 | : try_2 2 = IF try_1 ELSE failure ENDIF ; | ||||
13 | : try_3 3 = IF try_2 ELSE failure ENDIF ; | ||||
14 | : MAIN 0 1 2 3 4 5 6 RROT2 4 = IF try_3 ELSE failure ENDIF ; |