home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_3bs.seq < prev    next >
Text File  |  1990-04-06  |  513b  |  31 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 6, 1990
  4. \ Problem 3.3
  5.  
  6.  
  7. : 2swap ( d1 d2 -- d2 d1 )
  8.         3 roll 3 roll ;
  9.  
  10. : 2drop ( d1 -- )
  11.         drop drop ;
  12.  
  13. : 2dup ( d1 -- d1 d1 )
  14.         over over ;
  15.  
  16. : 2over ( d1 d2 -- d1 d2 d1)
  17.         3 pick 3 pick ;
  18.  
  19. : 2nip ( d1 d2 -- d2 )
  20.         2swap 2drop ;
  21.  
  22. : 2tuck ( d1 d2 -- d2 d1 d2 )
  23.         2swap 2over ;
  24.  
  25. : 2rot ( d1 d2 d3 -- d2 d3 d1 )
  26.         5 roll 5 roll ;
  27.  
  28. : -2rot ( d1 d2 d3 -- d3 d1 d2 )
  29.         2rot 2rot ;
  30.  
  31.