home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_5bs.seq < prev    next >
Text File  |  1990-04-08  |  577b  |  46 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 6, 1990
  4. \ Problem 3.5
  5.  
  6.  
  7. : 1+ ( n -- n+1 )
  8.         1 + ;
  9.  
  10. : 2+ ( n -- n+2 )
  11.         2 + ;
  12.  
  13. : 1- ( n -- n-1 )
  14.         1 - ;
  15.  
  16. : 2- ( n -- n-2 )
  17.         2 - ;
  18.  
  19. : 2* ( n -- n*2 )
  20.         2 * ;
  21.  
  22. : 2/ ( n -- n/2 )
  23.         2 / ;
  24.  
  25. \ Double number
  26.  
  27. : d1+ ( d -- d+1 )
  28.         1. d+ ;
  29.  
  30. : d2+ ( d -- d+2 )
  31.         2. d+ ;
  32.  
  33. : d1- ( d -- d-1 )
  34.         1. d- ;
  35.  
  36. : d2- ( d -- d-2 )
  37.         2. d- ;
  38.  
  39. : d2* ( d -- d*2 )
  40.         2dup d+ ;
  41.  
  42. : d2/ ( d -- d/2 )
  43.        2 mu/mod 2 roll drop ;
  44.  
  45.  
  46.