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

ADD empty dag builder and empty test

This commit is contained in:
Nathan Dwarshuis 2022-01-22 18:04:40 -05:00
parent 7c11a0c4da
commit 94c00b7af5
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -372,6 +372,10 @@ Return a DAG object."
(-let (((a b) (dag--alist-to-ht parent-adjlist))) (-let (((a b) (dag--alist-to-ht parent-adjlist)))
(dag--create a b nil))) (dag--create a b nil)))
(defun dag-empty ()
"Return an empty DAG."
(dag--create (dag--ht-create nil) (dag--ht-create nil) nil))
(defun dag-remove-nodes (to-remove dag) (defun dag-remove-nodes (to-remove dag)
(-let (((&plist :adjlist a :broken-edges b :floating-nodes f) dag)) (-let (((&plist :adjlist a :broken-edges b :floating-nodes f) dag))
(->> (dag--adjlist-remove-nodes to-remove a b f) (->> (dag--adjlist-remove-nodes to-remove a b f)
@ -410,6 +414,11 @@ Return a DAG object."
(defun dag-is-valid-p (dag) (defun dag-is-valid-p (dag)
(< 0 (dag-get-length dag))) (< 0 (dag-get-length dag)))
(defun dag-is-empty-p (dag)
(= 0
(ht-size (dag-get-adjacency-list dag))
(ht-size (dag-get-floating-nodes dag))))
(defun dag-get-node (key dag) (defun dag-get-node (key dag)
(-some-> (dag-get-adjacency-list dag) (-some-> (dag-get-adjacency-list dag)
(ht-get key))) (ht-get key)))