home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / compare.4th < prev    next >
Encoding:
Text File  |  1993-12-12  |  1.6 KB  |  85 lines
  1. \
  2. \ test/compare.4th ---    test comparision operators
  3. \ (duz 05Aug93)
  4. \
  5.  
  6. CR .( compare equality) CR .(    )
  7.  
  8. 0 0= Y
  9. 1 0= N
  10. 123456789 123456789 = Y
  11. 123456789 123456788 = N  SPACE
  12.  
  13. 0 0<> .
  14. 1 0<> Y
  15. 123456789 123456789 <> N
  16. 123456789 123456788 <> Y  SPACE D CR .(    )
  17.  
  18. 1234567890 987654321  1234567890 987654321  D= Y
  19. 1234567890 987654321  1234567891 987654321  D= N
  20. 1234567890 987654321  1234567890 987654320  D= N  SPACE D
  21.  
  22.  
  23. CR .( compare) CR .(    )
  24.  
  25.  1 0< N
  26.  0 0< N
  27. -1 0< Y  SPACE
  28.  
  29.  1 0> Y
  30.  0 0> N
  31. -1 0> N  SPACE
  32.  
  33. \  1 0<= N
  34. \  0 0<= Y
  35. \ -1 0<= Y  SPACE
  36.  
  37. \  1 0>= Y
  38. \  0 0>= Y
  39. \ -1 0>= N  SPACE D CR .(    )
  40.  
  41.  
  42.  123456789  234567890 < Y
  43.  234567890  123456789 < N
  44. -123456789 -234567890 < N
  45. -234567890 -123456789 < Y
  46.  123456789 -234567890 < N
  47. -234567890  123456789 < Y  SPACE
  48.  
  49.  234567890  123456789 > Y
  50.  123456789  234567890 > N
  51. -234567890 -123456789 > N
  52. -123456789 -234567890 > Y
  53. -234567890  123456789 > N
  54.  123456789 -234567890 > Y  SPACE
  55.  
  56.  123456789  234567890 <= Y
  57.  234567890  123456789 <= N
  58. -123456789 -234567890 <= N
  59. -234567890 -123456789 <= Y
  60.  123456789 -234567890 <= N
  61. -234567890  123456789 <= Y
  62.  123456789  123456789 <= Y  SPACE
  63.  
  64.  234567890  123456789 >= Y
  65.  123456789  234567890 >= N
  66. -234567890 -123456789 >= N
  67. -123456789 -234567890 >= Y
  68. -234567890  123456789 >= N
  69.  123456789 -234567890 >= Y
  70.  123456789  123456789 >= Y  CR .(    )
  71.  
  72. 1234567890 2345678901 U< Y
  73. 2345678901 1234567890 U< N  SPACE
  74.  
  75. 2345678901 1234567890 U> Y
  76. 1234567890 2345678901 U> N  SPACE
  77.  
  78. 1234567890 2345678901 U<= Y
  79. 2345678901 1234567890 U<= N
  80. 2345678901 2345678901 U<= Y  SPACE
  81.  
  82. 2345678901 1234567890 U>= Y
  83. 1234567890 2345678901 U>= N
  84. 2345678901 2345678901 U>= Y  SPACE D
  85.