Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

more intersection/difference tests

Browse source
This commit is contained in:
Alex Shinn 2016-05-18 23:17:26 +09:00
parent cccfe33f7f
commit 1d0b67586a
1 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
lib/chibi/iset-test.sld
View file

@ -104,6 +104,25 @@
((1 2 3 4 5) (i 4 5) (= 4 5)) ((1 2 3 4 5) (i 4 5) (= 4 5))
((1 2 3 4 5) (i 1 2 3 4 5) (= 1 2 3 4 5)) ((1 2 3 4 5) (i 1 2 3 4 5) (= 1 2 3 4 5))
((1 2 3 4 5) (i 0 1 5 6) (= 1 5)) ((1 2 3 4 5) (i 0 1 5 6) (= 1 5))
((1 2 3 4 5 6 7 8) (i 1 2 3 4) (= 1 2 3 4))
((1 3 4 5 6 7 8) (i 1 3 4) (= 1 3 4))
((1 2 4 5 6 7 8) (i 1 2 4) (= 1 2 4))
((1 2 3 5 6 7 8) (i 1 2 3) (= 1 2 3))
((1 2 3 4 6 7 8) (i 1 2 3 4) (= 1 2 3 4))
((1 2 3 6 7 8) (i 1 2 3) (= 1 2 3))
((1 3 6 8) (i 1 3) (= 1 3))
((1 2 3 4 1001 1002 1003 1004 2001 2002 2003 2004)
(i 0 1 2 3 4 10 1001 1002 3001)
(= 1 2 3 4 1001 1002))
((1 2 4 1001 1002 1003 1004 2001 2002 2003 2004)
(i 1 2 3 4 1001 1002)
(= 1 2 4 1001 1002))
((1 2 3 4 1001 1002 1004 2001 2002 2003 2004)
(i 1 2 3 4 1001 1003)
(= 1 2 3 4 1001))
((1 2 3 4 1001 1002 1003 1004 2001 2003 2004)
(i 1 2 3 4 1001 1004 1005 2000 2001)
(= 1 2 3 4 1001 1004 2001))
;; difference ;; difference
((1 2 3 4 5) (d 1) (!? 0) (? 2 3 4 5) (!? 6)) ((1 2 3 4 5) (d 1) (!? 0) (? 2 3 4 5) (!? 6))
((1 2 3 4 5) (d 1 2) (!? 0) (? 3 4 5) (!? 6)) ((1 2 3 4 5) (d 1 2) (!? 0) (? 3 4 5) (!? 6))
@ -114,6 +133,27 @@
((1 2 3 4 5) (d 4 5) (!? 0) (? 1 2 3) (!? 6)) ((1 2 3 4 5) (d 4 5) (!? 0) (? 1 2 3) (!? 6))
((1 2 3 4 5) (d 1 2 3 4 5) (z)) ((1 2 3 4 5) (d 1 2 3 4 5) (z))
((1 2 3 4 5) (d 0 1 5 6) (? 2 3 4)) ((1 2 3 4 5) (d 0 1 5 6) (? 2 3 4))
((1 2 3 4 5 6 7 8) (d 1 2 3 4) (= 5 6 7 8))
((1 3 4 5 6 7 8) (d 1 3 4) (= 5 6 7 8))
((1 2 4 5 6 7 8) (d 1 2 4) (= 5 6 7 8))
((1 2 3 5 6 7 8) (d 1 2 3) (= 5 6 7 8))
((1 2 3 4 6 7 8) (d 1 2 3 4) (= 6 7 8))
((1 2 3 4 5 7 8) (d 1 2 3 4) (= 5 7 8))
((1 2 3 4 5 6 8) (d 1 2 3 4) (= 5 6 8))
((1 2 3 6 7 8) (d 1 2 3) (= 6 7 8))
((1 3 6 8) (d 1 3) (= 6 8))
((1 2 3 4 1001 1002 1003 1004 2001 2002 2003 2004)
(d 1 2 3 4 1001 1002)
(= 1003 1004 2001 2002 2003 2004))
((1 2 4 1001 1002 1003 1004 2001 2002 2003 2004)
(d 1 2 4 1001 1002)
(= 1003 1004 2001 2002 2003 2004))
((1 2 3 4 1001 1002 1004 2001 2002 2003 2004)
(d 1 2 3 4 1001 1002)
(= 1004 2001 2002 2003 2004))
((1 2 3 4 1001 1002 1003 1004 2001 2003 2004)
(d 1 2 3 4 1001 1002)
(= 1003 1004 2001 2003 2004))
;; map ;; map
((1 2 3) (m ,(lambda (x) (+ x 1))) (= 2 3 4)) ((1 2 3) (m ,(lambda (x) (+ x 1))) (= 2 3 4))
))) )))