notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

slightly better pathfinding.

Browse Source
This commit is contained in:
=
2014-09-08 14:17:29 -07:00
parent 0507b26cca
commit 0e44cea2f5
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
desktop/src-common/advent/pathfind.clj
View File

@@ -43,8 +43,11 @@
(came-from current-node)))))) (came-from current-node))))))
(defn heuristic [[goal-x goal-y] [current-x current-y]] (defn heuristic [[goal-x goal-y] [current-x current-y]]
(+ (Math/abs (- goal-x current-x )) (let [dist-x (Math/abs (- goal-x current-x ))
(Math/abs (- goal-y current-y)))) dist-y (Math/abs (- goal-y current-y))
d2 (Math/sqrt 2)]
(+ dist-x dist-y (* (- d2 1)
(min dist-x dist-y)))))
(defn ->scale [loc] (defn ->scale [loc]
(vec (map (fn [x] (int (/ x 2))) loc))) (vec (map (fn [x] (int (/ x 2))) loc)))