home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_3dc.seq < prev    next >
Text File  |  1990-04-03  |  596b  |  27 lines
  1. \ PROBLEM 3.3 BY DICKSON CHENG  04/03/90 16:48:17.68
  2.  
  3. : 2SWAP         ( d1 d2 -- d2 d1 )
  4.         3 ROLL 3 ROLL ;
  5.  
  6. : 2DROP         ( d -- )
  7.         DROP DROP ;
  8.  
  9. : 2DUP          ( d1 -- d1 d1 )
  10.         1 PICK 1 PICK ;
  11.  
  12. : 2OVER         ( d1 d2 -- d1 d2 d1 )
  13.         3 PICK 3 PICK ;
  14.  
  15. : 2NIP          ( d1 d2 -- d2 )
  16.         4 ROLL 4 ROLL DROP DROP ;
  17.  
  18. : 2TUCK         ( d1 d2 -- d2 d1 d2 )
  19.         3 ROLL 3 ROLL 3 PICK 3 PICK ;
  20.  
  21. : 2ROT          ( d1 d2 d3 -- d2 d3 d1 )
  22.         5 ROLL 5 ROLL ;
  23.  
  24. : -2ROT         ( d1 d2 d3 -- d3 d1 d2 )
  25.         5 ROLL 5 ROLL 5 ROLL 5 ROLL ;
  26.  
  27.