giles
eb69039935
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 48s
Four conso calls express the (a b . rest) -> (b a . rest) rewrite as a purely relational constraint. Self-inverse on length-2+ lists; runs forward (swap given input) and backward (recover original from the swapped form). Fails on lists shorter than 2. 6 new tests, 437/437 cumulative.
33 lines
704 B
Plaintext
33 lines
704 B
Plaintext
;; lib/minikanren/tests/swap-firsto.sx — swap first two elements.
|
|
|
|
(mk-test
|
|
"swap-firsto-pair"
|
|
(run* q (swap-firsto (list 1 2) q))
|
|
(list (list 2 1)))
|
|
|
|
(mk-test
|
|
"swap-firsto-with-tail"
|
|
(run* q (swap-firsto (list 1 2 3 4) q))
|
|
(list (list 2 1 3 4)))
|
|
|
|
(mk-test
|
|
"swap-firsto-singleton-fails"
|
|
(run* q (swap-firsto (list 1) q))
|
|
(list))
|
|
|
|
(mk-test "swap-firsto-empty-fails" (run* q (swap-firsto (list) q)) (list))
|
|
|
|
(mk-test
|
|
"swap-firsto-self-inverse"
|
|
(run*
|
|
q
|
|
(fresh (mid) (swap-firsto (list :a :b :c :d) mid) (swap-firsto mid q)))
|
|
(list (list :a :b :c :d)))
|
|
|
|
(mk-test
|
|
"swap-firsto-backward"
|
|
(run* q (swap-firsto q (list :y :x :z)))
|
|
(list (list :x :y :z)))
|
|
|
|
(mk-tests-run!)
|