home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / gofer / Sources / original / gs / apr10 < prev    next >
Encoding:
Text File  |  1993-02-12  |  1.2 KB  |  43 lines
  1. main = run program
  2.  
  3. program x = print' [1 == 2,
  4.             2 <= 3,
  5.             "Murphy" /= "Baker",
  6.             [9..1] == [],
  7.             [1,2,3] < [1..10],
  8.             [1,2,3] < [1..],
  9.             [[1],[2,3]] == [[1],[2,3]],
  10.                     [[1],[2,3]] == [[1],[2,4]],
  11.             [[1],[2,3]] <  [[1],[2,4]],
  12.             [[1],[2],[3]] >= [[1],[2],[3]],
  13.             "abc" == "abcdef",
  14.             "abc" <= "abcdef",
  15.             "abc" <  "abcdef",
  16.             "abc" /= "abcdef",
  17.             "abc" >= "abcdef",
  18.             "abc" >  "abcdef",
  19.             [[[1,2],[3,4]],[[]],[[1,2,3]]]==[[[1,2],[3,4]],[[]],[[1]]],
  20.             [[[1,2],[3,4]],[[]],[[1,2,3]]]/=[[[1,2],[3,4]],[[]],[[1]]],
  21.             [[[1,2],[3,4]],[[]],[[1,2,3]]]> [[[1,2],[3,4]],[[]],[[1]]],
  22.             [[[1,2],[3,4]],[[]],[[1,2,3]]]>=[[[1,2],[3,4]],[[]],[[1]]],
  23.             [[[1,2],[3,4]],[[]],[[1,2,3]]]< [[[1,2],[3,4]],[[]],[[1]]],
  24.             [[[1,2],[3,4]],[[]],[[1,2,3]]]<=[[[1,2],[3,4]],[[]],[[1]]],
  25.             3.234 == 3.235,
  26.             3.234 /= 3.235,
  27.             3.234 >= 3.235,
  28.             3.234 <= 3.235,
  29.             3.234 <  3.235,
  30.             3.234 >  3.235,
  31.             True  == False,
  32.             True  /= False,
  33.             True  >= False,
  34.             True  <= False,
  35.             True  >  False,
  36.             True  >= False
  37.            ]
  38.  
  39. print' = unlines . map which
  40.      where which True  = "True"
  41.                which False = "False"
  42.  
  43.