home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_11dc.seq < prev    next >
Text File  |  1990-04-04  |  790b  |  29 lines
  1. \ Problem 3.11 by Dickson Cheng  04/04/90 21:30:34.56
  2.  
  3.  
  4.  
  5. \ (IN) leaves a true flag if a < x < b , otherwise false.
  6. : (IN)          ( x a b -- flag )
  7.         OVER 1 PICK > IF DROP THEN
  8.         -ROT OVER < -ROT > AND ;
  9.  
  10. \ [IN] leaves a true flag if a <= x <= b , otherwise false.
  11. : [IN]          ( x a b -- flag )
  12.         OVER 1 PICK > IF SWAP THEN
  13.         1+ SWAP 1- SWAP
  14.         -ROT OVER < -ROT > AND ;
  15.  
  16. \ (IN] leaves a true flag if a < x <= b , otherwise false.
  17. : (IN]          ( x a b -- flag )
  18.         OVER 1 PICK > IF DROP THEN
  19.         1+
  20.         -ROT OVER < -ROT > AND ;
  21.  
  22. \ [IN) leaves a true flag if a <= x < b , otherwise false.
  23. : [IN)          ( x a b -- flag )
  24.         OVER 1 PICK > IF DROP THEN
  25.         SWAP 1- SWAP
  26.         -ROT OVER < -ROT > AND ;
  27.  
  28.  
  29.