giles
de6fd1b183
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Walks the list with a recursive count. On a head match, recurse and add 1 via pluso-i; on no match (nafc), recurse forwarding the count. Empty list yields 0. 6 new tests, 532/532 cumulative.
36 lines
597 B
Plaintext
36 lines
597 B
Plaintext
;; lib/minikanren/tests/counto.sx — count occurrences of x in l (intarith).
|
|
|
|
(mk-test
|
|
"counto-empty"
|
|
(run* q (counto 1 (list) q))
|
|
(list 0))
|
|
(mk-test
|
|
"counto-not-found"
|
|
(run* q (counto 99 (list 1 2 3) q))
|
|
(list 0))
|
|
(mk-test
|
|
"counto-once"
|
|
(run* q (counto 2 (list 1 2 3) q))
|
|
(list 1))
|
|
(mk-test
|
|
"counto-thrice"
|
|
(run*
|
|
q
|
|
(counto
|
|
1
|
|
(list 1 2 1 3 1)
|
|
q))
|
|
(list 3))
|
|
(mk-test
|
|
"counto-all-same"
|
|
(run*
|
|
q
|
|
(counto 7 (list 7 7 7 7) q))
|
|
(list 4))
|
|
(mk-test
|
|
"counto-string"
|
|
(run* q (counto "x" (list "x" "y" "x") q))
|
|
(list 2))
|
|
|
|
(mk-tests-run!)
|