calculate-fitness.clj

(defn calculate-fitness [genome]
  "Returns the total distance travelled for a given solution"
  (let [path (pathify genome)
        distances (map get-distance path)]
    (reduce + distances)))

(defn pathify [vec]
  "turns a vector into a vector of transitions,
   including last element back to the first

   ex: [0 1 2] -> [[0 1] [1 2] [2 0]]"
  (map (fn [i]
           (subvec (into vec vec) i (+ 2 i)))
       (range (count vec))))