From 9d7347fd7e4d0a21ac67475bea2f0aaa30ed431c Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 3 Sep 2014 15:02:35 -0700 Subject: [PATCH] doesn't like override. --- desktop/src-common/advent/pathfind.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/desktop/src-common/advent/pathfind.clj b/desktop/src-common/advent/pathfind.clj index 17f051aa..0a3455e3 100644 --- a/desktop/src-common/advent/pathfind.clj +++ b/desktop/src-common/advent/pathfind.clj @@ -30,7 +30,7 @@ (< -1 y (count my-map)))) candidates)))) -(defn resolve [came-from play-loc target-loc] +(defn resolve-path [came-from play-loc target-loc] (if (nil? (came-from target-loc)) nil (loop [path [] @@ -59,7 +59,7 @@ (let [current-loc (first (keys fronteir))] (if (or (empty? fronteir) (= current-loc target-loc)) - (resolve came-from play-loc target-loc) + (resolve-path came-from play-loc target-loc) (let [neighbors (neighbors current-loc my-map) [cost-so-far came-from fronteir] (reduce (fn [[cost-so-far came-from fronteir] neighbor] (let [new-cost (+ (cost-so-far current-loc) (get-in my-map (reverse neighbor)))]