     (cond
       (empty? l) g
       :else
-        (recur (rest l) c ())))
+        (recur (rest l) c ()))))
 
 (defn k-means
   "Perform the actual k-means"

    (k-means l k (choose-initial-centroids l k) (make-array Float/TYPE k)))
  ([l k c g]
    (cond
      (< (count g) (count l)) ; Add in new data to the clusters
        (recur (rest l) k (mean-centroids c) (cluster g)))
      (still-moving? c) ; Keep shifting centroids until equilibrium
        (recur nil k (mean-centroids c) (cluster g))
      :else g))

(defn -main
  "Main function for k-means"

(defn mean
  "Retrieve the mean value of a list"
  [l]
  (float (/ (reduce + l) (count l))))

(defn mean-centroids
  "Calculates the mean for a given centroid"
  [c l]
  c)

(defn cluster
  "take a vector and cluster it via distance"
  [c l]
  c)
; (defn centroid)
