pythagorean-means.clj

;; http://rosettacode.org/wiki/Averages/Pythagorean_means
;; according to the python solution.
(use '[clojure.contrib.math :only (expt)])

(defn a-mean [coll]
  (/ (reduce + coll) (count coll)))

(defn g-mean [coll]
  (expt (reduce * coll) (/ (count coll))))

(defn h-mean [coll] ;; Michael Kohl's function
  (/ (count coll) (reduce + (map / coll))))

(let [numbers (range 1 11)
      a (a-mean numbers) g (g-mean numbers) h (h-mean numbers)]
  (println a ">=" g ">=" h)
  (>= a g h))