(defn avg [n-seq]
  (->> (reduce (fn [[sum count] n]
                         [(+ sum n) (inc count)])
                     [0 0] n-seq)
          (apply /)))

모닝 두뇌체조 손코딩. 이런게 맵리듀스의 원리지