Skip to content

Instantly share code, notes, and snippets.

@ninjudd

ninjudd/graph.clj

Created May 9, 2012 01:22
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save ninjudd/2640954 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save ninjudd/2640954 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
graph.clj
(defn- mark-edges-deleted [keyseq node]
(cond-let [ks (edges-keyseq keyseq)]
(update-in node ks map-vals-with-keys edge-deleted)
[ks (deleted-edge-keyseq keyseq)]
(update-in node ks edge-deleted?)
:else node))
(defn- mark-incoming-deleted [keyseq node]
(cond-let [ks (edges-keyseq keyseq)]
(update-in node ks map-vals-with-keys incoming-exists?)
[ks (deleted-edge-keyseq keyseq)]
(update-in node ks incoming-exists?)
:else node))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment