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

datalog: indexed dl-find-bindings + chain-15 differential (Phase 5c, 153/153)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 59s
Details

Browse Source 
dl-find-bindings now uses dl-fb-aux lits db subst i n (indexed
iteration via nth) instead of recursive (rest lits). Eliminates
O(N²) list-copy per body of length N. chain-15 saturation 25s
→ 16s; chain-25 finishes in 33s real (vs. timeout previously).

Bumped semi_naive tests to chain-10 differential + chain-15
semi-only count (was chain-5/chain-5). Blocker entry refreshed.
This commit is contained in:
giles
2026-05-08 08:50:24 +00:00
parent de302fc236
commit 790c17dfc1
4 changed files with 32 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/datalog/tests/semi_naive.sx
View File

@@ -120,18 +120,18 @@
(dl-sn-counts-agree?
(dl-sn-counts "p(a). p(b). q(X) :- p(X), =(X, a)."))
true)
;; Chain length 5 — small but enough to exercise multiple
;; semi-naive iterations against a recursive rule.
;; Chain length 10 — exercises multiple semi-naive iterations
;; against the recursive ancestor rule.
(dl-sn-test!
"chain-5 ancestor counts match"
(dl-sn-counts-agree? (dl-sn-counts (dl-sn-chain-source 5)))
"chain-10 ancestor counts match"
(dl-sn-counts-agree? (dl-sn-counts (dl-sn-chain-source 10)))
true)
(dl-sn-test!
"chain-5 ancestor count value"
"chain-15 ancestor count value (semi only)"
(let
((db (dl-program (dl-sn-chain-source 5))))
((db (dl-program (dl-sn-chain-source 15))))
(do (dl-saturate! db) (len (dl-relation db "ancestor"))))
15)
120)
(dl-sn-test!
"query through semi saturate"
(let