gistfile1.clj

  ;; merge adjacents: sum values for in-/out-of-order, ditch extra cols and add sum-of-OOO values
  (defn merge-set [xs]
    (concat (vec (take 3 (first xs)))
            (if (second xs)
              [(sum-nths 4 xs) (sum-nths 4 (filter #(nth % 3) xs))]
              [(nth (first xs) 4) 0])))

  (defn normalize-updated-labels [rows]
    (->> rows
         (map update-label-order)
         (sort)
         (partition-by (partial take 3))
         (map merge-set)
         (concat)))