*scratch*.clj

(def paper-feet
  (comp #(apply + %)
        (juxt (partial apply min)
              (comp #(* 2 %)
                    (partial apply +)))
        #(map (partial apply *) %)
        #(partition 2 1 (take 1 %) %)
        #(map (fn [x]
                (Integer/parseInt x))
              %)
        #(.split % "x")))

(paper-feet "2x3x4")
(paper-feet "1x1x10")