cljs-get-books.cljs

;; with parens
(defn symmetrize-body-parts
  "Expects a seq of maps that have a :name and :size"
  [asym-body-parts]
  (loop [remaining-asym-parts asym-body-parts
         final-body-parts []]
    (if (empty? remaining-asym-parts)
      final-body-parts
      (let [[part & remaining] remaining-asym-parts]
        (recur remaining
               (into final-body-parts
                     (set [part (matching-part part)])))))))

;; without parens
defn symmetrize-body-parts
  "Expects a seq of maps that have a :name and :size"
  [asym-body-parts]
  loop [remaining-asym-parts asym-body-parts
         final-body-parts []]
    if empty? remaining-asym-parts
      final-body-parts
      let [[part & remaining] remaining-asym-parts]
        recur remaining
               into final-body-parts
                     set [part matching-part part]