Commit 6bbd0202 authored by Ioanna M. Dimitriou H.'s avatar Ioanna M. Dimitriou H. 💬
Browse files

removed forcing top and bottom node at the memoization stage

parent 2f59fbcb
......@@ -41,12 +41,8 @@ whether this intesects the descendants of A.
as 'row implies column?'.")
(defun setup-jeff-matrix (graph)
"Prepares *jeff-matrix* with the information from `graph`, and some
obvious predicate answers."
(setf *jeff-matrix* (graph-to-matrix graph))
(loop for name being the hash-keys of graph
do (setf (aref *jeff-matrix* name 0) 1)
(setf (aref *jeff-matrix* 1 name) 1)))
"Prepares *jeff-matrix* with the information from `graph`"
(setf *jeff-matrix* (graph-to-matrix graph)))
(defun ancestors (node) ;; => list
"Returns the list of strict ancestors of NODE."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment