Jacob Lee artdent

vim ~/.emacs

artdent / graph.clj

Created January 16, 2012 22:09 — forked from zaphar/graph.clj

Ways by node

	(defn ways-by-node [ways]
	(reduce
	(partial merge-with (comp vec concat))
	(for [way ways, id (:nodes way)]
	(hash-map id [(:id way)]))))