coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mk: eveno + oddo — Peano parity predicates
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 24s
Details

Browse Source 
eveno: zero, or (s (s m)) when m is even.
oddo:  one, or (s (s m)) when m is odd.

Both run forward (predicate test on a Peano number) and backward
(enumerate even / odd numbers). The two are mutually exclusive — no
number satisfies both.

12 new tests, 359/359 cumulative.
This commit is contained in:
giles
2026-05-08 11:30:02 +00:00
parent ada405b37b
commit 54a58c704e
3 changed files with 78 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
plans/minikanren-on-sx.md
View File

@@ -173,6 +173,10 @@ _(none yet)_
_Newest first._
- **2026-05-08** — **eveno / oddo Peano predicates**: classic miniKanren parity
relations. eveno: 0 or successor-of-successor of even; oddo: 1 or
successor-of-successor of odd. Both run forward (test) and backward
(enumerate). 12 new tests, 359/359 cumulative.
- **2026-05-08** — **defrel — Prolog-style relation definition macro**:
`(defrel (NAME ARGS...) (CLAUSE1 ...) (CLAUSE2 ...) ...)` expands to
`(define NAME (fn (ARGS...) (conde (CLAUSE1 ...) (CLAUSE2 ...) ...)))`.