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

..

tests

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

2026-05-08 12:28:31 +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 4A — appendo canary green, both directions

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

defrel.sx

mk: defrel — Prolog-style relation-definition macro

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

fd.sx

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

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

fresh.sx

mk: phase 2B — fresh, defmacro form + call-fresh

2026-05-07 19:56:40 +00:00

goals.sx

mk: phase 2A — streams + ==/conj/disj, 34 new tests

2026-05-07 19:54:43 +00:00

intarith.sx

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

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

matche.sx

mk: matche keyword pattern fix + classic puzzles

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

nafc.sx

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

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

peano.sx

mk: eveno + oddo — Peano parity predicates

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

project.sx

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

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

queens.sx

mk: 4-queens classic benchmark green

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

relations.sx

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

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

run.sx

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

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

stream.sx

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

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

unify.sx

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

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