home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_19dc.seq < prev    next >
Encoding:
Text File  |  1990-04-15  |  1.3 KB  |  58 lines
  1. \ Problem 4.19   04/15/90 19:52:01.23
  2.  
  3.  
  4. : PDUP          ( n -- nn P )
  5.         P@ >P ;
  6.  
  7. : PDROP         ( n --  P )
  8.         P> DROP ;
  9.  
  10. : PSWAP         ( n m -- m n P )
  11.         P> P> SWAP >P >P ;
  12.  
  13. : POVER         ( n1 n2 -- n1 n2 n1 P )
  14.         P> P> DUP >P SWAP >P >P ;
  15.  
  16. : PROT          ( n1 n2 n3 -- n2 n3 n1 P )
  17.         P> P> P> SWAP >P SWAP >P >P ;
  18.  
  19. : -PROT         ( n1 n2 n3 -- n3 n2 n1 P )
  20.         P> P> P> -ROT >P >P >P ;
  21.  
  22. : PTUCK         ( n1 n2 -- n2 n1 n2 P )
  23.         P> P> OVER >P >P >P ;
  24.  
  25. : PNIP          ( n1 n2 -- n2 P )
  26.         P> P> DROP >P ;
  27.  
  28. : 2PDUP         ( n1 n2 -- n1 n2 n1 n2 P )
  29.          P> P@ OVER >P >P >P ;
  30.  
  31. : 3PDUP         ( n1 n2 n3 -- n1 n2 n3 n1 n2 n3 P )
  32.         P> P> P@ 2 PICK 2 PICK >P >P >P >P >P ;
  33.  
  34. : 2PSWAP        ( n1 n2 n3 n4 -- n3 n4 n1 n2 P )
  35.         P> P> P> P> 2SWAP >P >P >P >P ;
  36.  
  37. : 2PDROP        ( n1 n2 --  P )
  38.         P> P> 2DROP ;
  39.  
  40. : 2POVER        ( n1 n2 n3 n4 -- n1 n2 n3 n4 n1 n2 P )
  41.         P> P> P> P> 2DUP >P >P 2SWAP >P >P >P >P ;
  42.  
  43. : P+            ( n1 n2 -- sum P )
  44.         P> P> + >P ;
  45.  
  46. : P-            ( n1 n2 -- n1-n2 P )
  47.         P> P> SWAP - >P ;
  48.  
  49. : P*            ( n1 n2 -- n3 P )
  50.         P> P> * >P ;
  51.  
  52. : P/            ( n1 n2 -- n1/n2 P )
  53.         P> P> SWAP / >P ;
  54.  
  55.  
  56.  
  57.  
  58.