     (cond
       (empty? g) l
       :else
-        (recur (rest g) (conj l (mean-2dvec (first g)))))))
+        (recur (rest g) (conj l (p :mean-2dvec (mean-2dvec (first g))))))))
 
 (defn distance
   "Implements euclidian distance between two vectors"
   ([c1 c2]
     (->> (map - c1 c2) (map #(* % %)) (reduce +))))
+
 (defn min-index
   [c]
   (.indexOf c (apply min c)))

  (cond
    (<= n 0) c
    :else
      (recur (dec n) (conj c [(rand-int 5000) (rand-int 5000)])))))

(defn make-vector
  "create a vector containing n cols"

(ns k-means.core
  (:gen-class)
  (:require [taoensso.timbre.profiling :as profiling :refer (p profile)]))


(defn choose-initial-centroids
  "Randomly choose k centroids from vectors"
