giles de6fd1b183 mk: counto — count occurrences of x in l (intarith) ...

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.

2026-05-08 12:28:31 +00:00

..

appendo3.sx

mk: appendo3 — 3-list append

2026-05-08 12:16:40 +00:00

btree-walko.sx

mk: btree-walko — binary-tree walker via matche

2026-05-08 12:02:13 +00:00

classics.sx

mk: matche keyword pattern fix + classic puzzles

2026-05-08 07:50:03 +00:00

conda.sx

mk: phase 5A — conda, soft-cut without onceo

2026-05-07 21:51:52 +00:00

conde.sx

mk: phase 4A — appendo canary green, both directions

2026-05-07 20:24:42 +00:00

condu.sx

mk: phase 2D — condu + onceo, phase 2 complete

2026-05-07 20:01:10 +00:00

counto.sx

mk: counto — count occurrences of x in l (intarith)

2026-05-08 12:28:31 +00:00

cyclic-graph.sx

mk: cyclic-graph behaviour test — motivates Phase 7 tabling

2026-05-08 11:19:29 +00:00

defrel.sx

mk: defrel — Prolog-style relation-definition macro

2026-05-08 11:27:49 +00:00

enumerate.sx

mk: enumerate-i / enumerate-from-i — 501/501 milestone

2026-05-08 12:20:03 +00:00

fd.sx

mk: phase 6A — minimal FD (ino + all-distincto)

2026-05-08 07:56:58 +00:00

flat-mapo.sx

mk: flat-mapo — concatMap-style relation

2026-05-08 12:24:23 +00:00

flatteno.sx

mk: flatteno — nested list flattener

2026-05-08 10:46:13 +00:00

foldl-o.sx

mk: foldl-o — relational left fold

2026-05-08 12:23:40 +00:00

foldr-o.sx

mk: foldr-o — relational right fold

2026-05-08 12:21:42 +00:00

fresh.sx

mk: phase 4A — appendo canary green, both directions

2026-05-07 20:24:42 +00:00

goals.sx

mk: phase 4A — appendo canary green, both directions

2026-05-07 20:24:42 +00:00

graph.sx

mk: graph reachability via patho — classic miniKanren

2026-05-08 11:15:24 +00:00

intarith.sx

mk: even-i / odd-i — host-arithmetic parity goals

2026-05-08 11:49:47 +00:00

iterate-no.sx

mk: iterate-no — apply a relation n times

2026-05-08 11:54:24 +00:00

lasto.sx

mk: lasto + init-o — last and not-last list relations

2026-05-08 11:25:12 +00:00

latin.sx

mk: 2x2 Latin square — small classic FD constraint demo

2026-05-08 11:00:12 +00:00

laziness.sx

mk: laziness tests — Zzz-conde + interleaving fairness

2026-05-08 10:43:45 +00:00

lengtho-i.sx

mk: lengtho-i — integer-indexed length

2026-05-08 12:15:53 +00:00

list-relations.sx

mk: samelengtho — equal-length relation

2026-05-08 11:09:48 +00:00

mapo.sx

mk: mapo (relational map) — 300/300 milestone

2026-05-08 11:11:26 +00:00

matche.sx

mk: phase 5D — matche pattern matching, phase 5 complete

2026-05-08 07:41:51 +00:00

minmax.sx

mk: mino + maxo — find min/max of a list

2026-05-08 12:12:32 +00:00

nafc.sx

mk: phase 5C — nafc, negation as finite failure

2026-05-07 23:29:08 +00:00

not-membero.sx

mk: not-membero — relational "x is not in l"

2026-05-08 11:36:14 +00:00

nub-o.sx

mk: nub-o — dedupe by keeping the last occurrence

2026-05-08 12:27:03 +00:00

pairlisto.sx

mk: pairlisto — relational zip

2026-05-08 11:57:12 +00:00

palindromeo.sx

mk: palindromeo — list reads same forwards/backwards

2026-05-08 11:38:29 +00:00

parity.sx

mk: eveno + oddo — Peano parity predicates

2026-05-08 11:30:02 +00:00

partitiono.sx

mk: partitiono — split list by predicate

2026-05-08 12:18:25 +00:00

path-cycle-free.sx

mk: cycle-free path search test

2026-05-08 12:07:00 +00:00

peano.sx

mk: peano arithmetic (zeroo, pluso, minuso, *o, lteo, lto)

2026-05-07 21:54:16 +00:00

predicates.sx

mk: everyo / someo — predicate-style relations

2026-05-08 11:13:22 +00:00

prefix-suffix.sx

mk: prefixo + suffixo — appendo-derived sublist relations

2026-05-08 11:40:28 +00:00

project.sx

mk: phase 5B — project, escape into host SX

2026-05-07 23:27:16 +00:00

pythag.sx

mk: pythagorean triples search — intarith showcase

2026-05-08 11:07:33 +00:00

queens.sx

mk: 4-queens classic benchmark green

2026-05-08 10:41:02 +00:00

rdb.sx

mk: relational database queries — Datalog-style demo

2026-05-08 11:22:12 +00:00

relations.sx

mk: phase 4C — permuteo (with inserto helper)

2026-05-08 07:22:41 +00:00

removeo-allo.sx

mk: removeo-allo — remove every occurrence

2026-05-08 12:04:17 +00:00

repeato-concato.sx

mk: repeato + concato

2026-05-08 11:34:28 +00:00

rev-acco.sx

mk: rev-acco + rev-2o — accumulator-style reverse

2026-05-08 11:51:51 +00:00

run.sx

mk: phase 3 — run* / run / reify, 18 new tests

2026-05-07 20:03:42 +00:00

selecto.sx

mk: selecto — choose element + rest of list

2026-05-08 11:47:27 +00:00

simplifyo.sx

mk: simplify-step-o — algebraic-identity simplifier (conda demo)

2026-05-08 12:25:36 +00:00

sortedo.sx

mk: sortedo — list is non-decreasing (intarith)

2026-05-08 12:10:52 +00:00

subo.sx

mk: subo — contiguous sublist relation

2026-05-08 11:45:31 +00:00

subseto.sx

mk: subseto — every element of l1 is in l2

2026-05-08 12:09:06 +00:00

sum-product.sx

mk: sumo + producto — fold list to integer

2026-05-08 12:14:15 +00:00

swap-firsto.sx

mk: swap-firsto — swap first two list elements

2026-05-08 11:59:41 +00:00

take-drop.sx

mk: tako + dropo — Peano-indexed prefix and suffix

2026-05-08 11:32:33 +00:00

types.sx

mk: numbero / stringo / symbolo type predicates

2026-05-08 11:17:27 +00:00

unify.sx

mk: phase 1 — unify.sx + 48 tests, kit-driven

2026-05-07 19:45:47 +00:00