giles
f4a902a6df
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 56s
Walks the list; if the head appears in the tail (membero), drop it and recurse; otherwise keep it and recurse. Result preserves only the *last* occurrence of each value. Caveat: with input like (1 1 1) the membero check succeeds with multiplicity, so multiple (1) answers may emerge — each is shape- identical, but the test deliberately checks every-result-is-(1) rather than asserting answer count. 5 new tests, 526/526 cumulative.
32 lines
589 B
Plaintext
32 lines
589 B
Plaintext
;; lib/minikanren/tests/nub-o.sx — relational dedupe (keep last occurrence).
|
|
|
|
(mk-test "nub-o-empty" (run* q (nub-o (list) q)) (list (list)))
|
|
|
|
(mk-test
|
|
"nub-o-no-duplicates"
|
|
(run* q (nub-o (list 1 2 3) q))
|
|
(list (list 1 2 3)))
|
|
|
|
(mk-test
|
|
"nub-o-with-duplicates"
|
|
(run*
|
|
q
|
|
(nub-o
|
|
(list 1 2 1 3 2 4)
|
|
q))
|
|
(list (list 1 3 2 4)))
|
|
|
|
(mk-test
|
|
"nub-o-all-same"
|
|
(let
|
|
((res (run* q (nub-o (list 1 1 1) q))))
|
|
(every? (fn (r) (= r (list 1))) res))
|
|
true)
|
|
|
|
(mk-test
|
|
"nub-o-keeps-last"
|
|
(run* q (nub-o (list 1 2 1) q))
|
|
(list (list 2 1)))
|
|
|
|
(mk-tests-run!)
|