brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Finish testing current procedures.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-07 22:47:01 +02:00
parent 6c1ce73c70
commit 3d81ea0129
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/util-set-list.scm
View file

@ -223,6 +223,18 @@
(list->lset '(1 2 3 1 2))
(list->lset '(2 3 4 2 3))))
4)
(test-equal? lset-intersect
(lset-count
(lset-intersect
(list->lset '(1 2 3 1 2))
(list->lset '(2 3 4 2 3))))
2)
(test-equal? lset-subtract
(lset-count
(lset-subtract
(list->lset '(1 2 3 1 2))
(list->lset '(2 3 4 2 3))))
1)
))
)