ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF break up the adjlist removal function into separate operations

This commit is contained in:
Nathan Dwarshuis 2022-03-06 22:47:52 -05:00
parent 346e41776b
commit 8d62b851b7
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
local/lib/dag/dag.el
View File

@ -242,8 +242,9 @@ parent keys for that child."
(ht-remove broken-edges it))) (ht-remove broken-edges it)))
broken-edges) broken-edges)
(defun dag--adjlist-remove-nodes (to-remove adjlist broken-edges)
(let (r r-rel child-rel) (defun dag--adjlist-remove-nodes-0 (to-remove adjlist)
(let (r r-rel child-rel broken-acc)
(while to-remove (while to-remove
;; If the node to be removed is in the adjacency list, get a list of its ;; If the node to be removed is in the adjacency list, get a list of its
;; parents, remove the node from the child list of each parent, then ;; parents, remove the node from the child list of each parent, then
@ -260,13 +261,18 @@ parent keys for that child."
(when (and (setq child-rel (ht-get adjlist it)) (when (and (setq child-rel (ht-get adjlist it))
(not (member it to-remove))) (not (member it to-remove)))
(ht-set adjlist it (dag--plist-remove child-rel :parents r)) (ht-set adjlist it (dag--plist-remove child-rel :parents r))
(dag--ht-cons broken-edges it r))) (!cons (cons it r) broken-acc)))
(ht-remove adjlist r)) (ht-remove adjlist r))
;; Remove all broken edges assigned to this node regardless of its (!cdr to-remove))
;; presence in the adjacency list (list adjlist broken-acc)))
(ht-remove broken-edges r)
(!cdr to-remove))) (defun dag--adjlist-remove-nodes (to-remove adjlist broken-edges)
(list adjlist broken-edges)) (-let (((adjlist* broken) (dag--adjlist-remove-nodes-0 to-remove adjlist)))
(--each to-remove
(ht-remove broken-edges it))
(--each broken
(dag--ht-cons broken-edges (car it) (cdr it)))
(list adjlist* broken-edges)))
(defmacro dag--intersection-difference (xs ys &optional zs) (defmacro dag--intersection-difference (xs ys &optional zs)
"Calculate the intersection and difference of XS and YS. "Calculate the intersection and difference of XS and YS.