I'm not sure how/if the following would fit your use case exactly, but you
might want to explore the get-in function (and assoc-in, the clojure.walk
namespace and the zippers functionality. They all make dealing with such
deeply nested structures easier.
Stathis
On Monday, 1 October 2012 23:36:15 UTC+1, arekanderu wrote:
>
> Thank you Gaz for your reply. You are correct about the side effects.
>
> I will go through your example more carefully and give it a go. It
> definitely looks more promising than what I got :)
>
> On Tuesday, October 2, 2012 1:22:44 AM UTC+3, Gaz wrote:
>>
>> You appear to be running over the map purely for side-effects,
>> therefore off the top of my head something like:
>>
>> (defn my-func
>> [data]
>> (doseq [area data
>> warehouse (:warehouses area)
>> container (:containers warehouse)
>> box (:boxes container)]
>> (if-not (empty? (:items box))
>> (doseq [item (:items box)] (do-something (:box box) (:item item)))
>> (do-something-else (:warehouse warehouse)
>> (:container container)
>> (:box box)))))
>>
>> Might be more appropriate...
>>
>>
>> On Mon, Oct 1, 2012 at 5:07 PM, arekanderu <areka...@gmail.com> wrote:
>> >> (def my-data [{:area "Somewhere" :warehouses
>> >>
>> >> [{:warehouse "W54321" :containers
>> >>
>> >> [{:container "C12345" :boxes
>> >>
>> >> [{:box "B12345" :items
>> >>
>> >> [{:item "I12345"}]}]}]}]}
>> >>
>> >> {:area "SomewhereElse" :warehouses
>> >>
>> >> [{:warehouse "W54321" :containers
>> >>
>> >> [{:container "C54321" :boxes
>> >>
>> >> [{:box "B54321" :items
>> >>
>> >> [{:item "I54321"}]}]}]}]}])
>> >>
>> >>
>> >> (defn my-func [data]
>> >>
>> >> (map (fn [area]
>> >>
>> >> (map (fn [warehouse]
>> >>
>> >> (map (fn [container]
>> >>
>> >> (map (fn [box]
>> >>
>> >> (if (not (empty? (:items box)))
>> >>
>> >> (map (fn [item]
>> >>
>> >> (doSomething (:box box) (:item
>> >> item)))
>> >>
>> >> (:items box))
>> >>
>> >> (doSomethingElse (:warehouse
>> warehouse)
>> >> (:container container) (:box box))))
>> >>
>> >> (:boxes container)))
>> >>
>> >> (:containers warehouse)))
>> >>
>> >> (:warehouses area)))
>> >>
>> >> data))
>>
>
--
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
