projects/Stacker/test/rrot.st

   1 #
   2 # RROT test
   3 #
   4 # Logic:  w1 w2 w3 -- w3 w1 w2
   5 #
   6 FORWARD success;
   7 FORWARD failure;
   8 : try_0 0 = IF success ELSE failure ENDIF ;
   9 : try_3 3 = IF try_0 ELSE failure ENDIF ;
  10 : try_1 1 = IF try_3 ELSE failure ENDIF ;
  11 : MAIN 0 1 2 3 RROT 2 = IF try_1 ELSE failure ENDIF ;
  12