simon/dengine
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of ssh://git.journeyman.cc:4022/simon/dengine

Browse source
This commit is contained in:
Simon Brooke 2025-08-16 12:09:53 +01:00
parent 1ac950b53a 96539de149
commit 4d3f8eb8b8
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/arboretum/dengine/node.clj
View file

@ -32,10 +32,17 @@
(defn make-node
"Make a node. TODO: these wrapper functions will probably disappear once
I'm more comfortable with the architecture."
([feature ^Boolean colour ^String fragment]
(make-node feature colour fragment nil))
([feature ^Boolean colour ^String fragment children ]
(NodeImpl. feature colour fragment children)))
([feature-id ^Boolean colour ^String fragment]
(make-node feature-id colour fragment nil))
([feature-id ^Boolean colour ^String fragment children ]
(if (and (find-feature-for @!kb feature-id)
(every? #(satisfies? Node %) children))
(NodeImpl. feature-id colour fragment children)
(throw (ex-info "Unexpected item passed as child node"
{:feature-id feature-id
:colour colour
:fragment fragment
:children children})))))
;; Here's the algorithm as published in A Graphical Inference Mechanism,
;; but it's not real Interlisp code, and I remember there being at least