Sum of Intervals Solution

sum_of_intervals.clj

(defn sum-intervals
  "c describes parts of a sequence. Some parts overlap.
  Give a sum of all the unique items in the sequence."
  [c]
  ;; Build the items
  ;; Pour 'em all into a single collection
  ;; (Implementation: Is range inclusive or exclusive? Doesn't matter. If i)
  ;; Set 'em
  ;; Count 'em.
  (->> (map #(range %1 %2) c)
    (apply concat)
    (set)
    (count)))