home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / lists155.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  2.5 KB  |  163 lines
  1.  
  2. (MEMBER 'A
  3.        '((A)
  4.          (B)
  5.          (A)
  6.          (C)))
  7. NIL
  8.  
  9. (MEMBER 'A
  10.        '((A)
  11.          (B)
  12.          (A)
  13.          (C))
  14.        :KEY 'CAR)
  15. ((A)
  16.  (B)
  17.  (A)
  18.  (C))
  19.  
  20. (MEMBER-IF 'NUMBERP
  21.        '((A)
  22.          (B)
  23.          (3)
  24.          (C))
  25.        :KEY 'CAR)
  26. ((3)
  27.  (C))
  28.  
  29. (MEMBER-IF-NOT 'NUMBERP
  30.        '((8)
  31.          (A)
  32.          (B)
  33.          (3)
  34.          (C))
  35.        :KEY 'CAR)
  36. ((A)
  37.  (B)
  38.  (3)
  39.  (C))
  40.  
  41. (TAILP '(A B)
  42.        '(U A B))
  43. NIL
  44.  
  45. (TAILP (CDDR (SETQ XX
  46.                    '(U I A B)))
  47.        XX)
  48. T
  49.  
  50. (TAILP (CDDR (SETQ XX
  51.                    '(U I A B)))
  52.        XX)
  53. T
  54.  
  55. (ADJOIN 'A
  56.        '(A B C))
  57. (A B C)
  58.  
  59. (ADJOIN 'A
  60.        '((A)
  61.          B C)
  62.        :TEST 'EQUAL)
  63. (A (A)
  64.    B C)
  65.  
  66. (ADJOIN 'A
  67.        '((A)
  68.          B C)
  69.        :TEST 'EQUAL)
  70. (A (A)
  71.    B C)
  72.  
  73. (UNION '(A B C D)
  74.        '(A D I V))
  75. #+XCL (V I A B C D)
  76. #+(or CLISP AKCL) (B C A D I V)
  77. #-(or XCL CLISP AKCL) UNKNOWN
  78.  
  79. (NUNION '(A B C D)
  80.        '(U I B A))
  81. #+XCL (A B C D U I)
  82. #+(or CLISP AKCL) (C D U I B A)
  83. #-(or XCL CLISP AKCL) UNKNOWN
  84.  
  85. (NINTERSECTION '(A B C D)
  86.        '(C D E F G))
  87. (C D)
  88.  
  89. (NINTERSECTION '(A B C D)
  90.        '(C D E F G)
  91.        :TEST-NOT 'EQL)
  92. (A B C D)
  93.  
  94. (SET-DIFFERENCE '(A B C D E)
  95.        '(D B E))
  96. #+XCL (C A)
  97. #+(or CLISP AKCL) (A C)
  98. #-(or XCL CLISP AKCL) UNKNOWN
  99.  
  100. (SET-DIFFERENCE '(AUTO ANTON BERTA BERLIN)
  101.        '(A)
  102.        :TEST
  103.        #'(LAMBDA (X Y)
  104.                 (EQL (ELT (SYMBOL-NAME X)
  105.                           1)
  106.                      (ELT (SYMBOL-NAME Y)
  107.                           1))))
  108. #+XCL (BERLIN BERTA ANTON AUTO)
  109. #-XCL ERROR
  110.  
  111. (SET-DIFFERENCE '(ANTON BERTA AUTO BERLIN)
  112.        '(AMERILLA)
  113.        :TEST
  114.        #'(LAMBDA (X Y)
  115.                 (EQL (ELT (SYMBOL-NAME X)
  116.                           0)
  117.                      (ELT (SYMBOL-NAME Y)
  118.                           0))))
  119. #+XCL (BERLIN BERTA)
  120. #+(or CLISP AKCL) (BERTA BERLIN)
  121. #-(or XCL CLISP AKCL) UNKNOWN
  122.  
  123. (NSET-DIFFERENCE '(A B C D)
  124.        '(I J C))
  125. (A B D)
  126.  
  127. (SET-EXCLUSIVE-OR '(A B C D)
  128.        '(C A I L))
  129. #+XCL (D B L I)
  130. #+(or CLISP AKCL) (B D I L)
  131. #-(or XCL CLISP AKCL) UNKNOWN
  132.  
  133. (SET-EXCLUSIVE-OR '(ANTON ANNA EMIL)
  134.        '(BERTA AUTO AUGUST)
  135.        :TEST
  136.        #'(LAMBDA (X Y)
  137.                 (EQL (ELT (SYMBOL-NAME X)
  138.                           0)
  139.                      (ELT (SYMBOL-NAME Y)
  140.                           0))))
  141. (EMIL BERTA)
  142.  
  143. (NSET-EXCLUSIVE-OR '(A B C)
  144.        '(I A D C))
  145. (B I D)
  146.  
  147. (SUBSETP '(A B)
  148.        '(B U I A C D))
  149. T
  150.  
  151. (SUBSETP '(A B)
  152.        '(B U I C D))
  153. NIL
  154.  
  155. (SUBSETP '(A B)
  156.        '(B A U I C D))
  157. T
  158.  
  159. (SUBSETP '(A B)
  160.        '(A U I C D))
  161. NIL
  162.  
  163.