home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_5dc.seq < prev    next >
Encoding:
Text File  |  1990-04-04  |  675 b   |  39 lines
  1. \ PROBLEM 3.5 BY DICKKSON CHENG  04/03/90 17:15:03.43
  2.  
  3. : 1+            ( n -- n+1 )
  4.         1 + ;
  5.  
  6. : 2+            ( n -- n+2 )
  7.         2 + ;
  8.  
  9. : 1-            ( n -- n-1 )
  10.         1 - ;
  11.  
  12. : 2-            ( n -- n-2 )
  13.         2 - ;
  14.  
  15. : 2*            ( n -- 2n )
  16.         2 * ;
  17.  
  18. : 2/            ( n -- n/2 )
  19.         2 / ;
  20.  
  21. : D1+           ( d -- d+1 )
  22.         SWAP 1 + SWAP ;
  23.  
  24. : D2+           ( d -- d+2 )
  25.         SWAP 2 + SWAP ;
  26.  
  27. : D1-           ( d -- d-1 )
  28.         SWAP 1 - SWAP ;
  29.  
  30. : D2-           ( d -- d-2 )
  31.         SWAP 2 - SWAP ;
  32.  
  33. : D2*           ( d -- 2d )
  34.         2DUP D+ ;
  35.  
  36. : d2/           ( d -- d/2 )
  37.         2/ SWAP 2/ SWAP ;
  38.  
  39.