On Jun 10, 9:55 am, Asbjørn Bjørnstad <asbj...@gmail.com> wrote:
> (defn connect-node [m a b weight]
> (update-in (update-in m [a :outputs]
> assoc b weight)
> [b :inputs] assoc a weight))
Ugh... Looks better this way:
(defn connect-node [m a b weight]
(-> m
(update-in [b :inputs] assoc a weight)
(update-in [a :outputs] assoc b weight)))
--
-asbjxrn
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
