gistfile1.txt

(defn write-builder ^WriteBuilder [cube ats]
  (let [-ats (filter #(not (empty? %)) ats)]
    (loop [builder (WriteBuilder. cube)
           ats# -ats]
    (if (empty? ats#)
      builder
      (let [[dim value] (first ats#)]
        (recur (.at builder dim value) (rest ats#)))))))


(defn read-builder ^ReadBuilder [cube ats]
  (let [-ats (filter #(not (empty? %)) ats)]
    (loop [builder (ReadBuilder. cube)
           ats# -ats]
    (if (empty? ats#)
      builder
      (let [[dim bucket value] (first ats#)]
        (recur (.at builder dim bucket value) (rest ats#)))))))