Skip to content

Instantly share code, notes, and snippets.

@tomjack
Created September 20, 2012 23:17
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save tomjack/64b2b23a303537f97015 to your computer and use it in GitHub Desktop.
(->> [{:range [3]} {:range [5 7]}]
(reduce-in [:range] (r/mapcat (partial apply range)))
(into [])
(= [{:range 0} {:range 1} {:range 2} {:range 5} {:range 6}]))
(->> [{:a-range [3] :b-range [2]} {:a-range [5 7] :b-range [3]}]
(reduce-in [:a-range] (r/mapcat (partial apply range)))
(reduce-in [:b-range] (r/mapcat (partial apply range)))
(into [])
(= [{:a-range 0 :b-range 0} {:a-range 0 :b-range 1}
{:a-range 1 :b-range 0} {:a-range 1 :b-range 1}
{:a-range 2 :b-range 0} {:a-range 2 :b-range 1}
{:a-range 5 :b-range 0} {:a-range 5 :b-range 1} {:a-range 5 :b-range 2}
{:a-range 6 :b-range 0} {:a-range 6 :b-range 1} {:a-range 6 :b-range 2}]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment