Skip to content
Browse files

Fix compilation issues.

  • Loading branch information...
1 parent 57d922a commit 0913e2edc38b38f2da80d41aa2b28d3861a69947 @yifu yifu committed Sep 30, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 ch03-collections-repl-interactions.clj
View
6 ch03-collections-repl-interactions.clj
@@ -1456,7 +1456,7 @@ b
unvisited (disj (set (keys paths)) start-loc)]
(if-let [loc (when-let [s (seq unvisited)] (rand-nth s))]
(let [walk (iterate (comp rand-nth paths) loc)
- steps (zipmap (take-while unvisited walk) (next walk))]<8>
+ steps (zipmap (take-while unvisited walk) (next walk))]
(recur (reduce disj walls (map set steps))
(reduce disj unvisited (keys steps))))
walls))))
@@ -1518,7 +1518,7 @@ b
deltas [[2 0] [1 1] [-1 1]]]
(set (for [v vertices d deltas f [+ -]
:let [w (vertices (map f v d))]
- :when w] #{v w}))
+ :when w] #{v w}))))
(defn- hex-outer-walls
[w h]
@@ -1527,7 +1527,7 @@ b
deltas [[2 0] [1 1] [-1 1]]]
(set (for [v vertices d deltas f [+ -]
:let [w (map f v d)]
- :when (not (vertices w))] #{v (vec w)}))
+ :when (not (vertices w))] #{v (vec w)}))))
(defn hex-draw
[w h maze]

0 comments on commit 0913e2e

Please sign in to comment.
Something went wrong with that request. Please try again.