gistfile1.txt

(defn which-am-i [unranked-value]
  (let [all-the-things
        (map #(vector (first %1) (distance-between (second %1) unranked-value)) all-the-averages)
        top-two (take 2 (sort-by second all-the-things))
        difference-between-top-two (Math/abs (apply - (map second top-two)))
        very-close (< difference-between-top-two 50)
        best-one (if
                     very-close
                   (ffirst (shuffle top-two))
                   (ffirst (first top-two)))]
    [best-one all-the-things best-one]))