Permalink
Browse files

Fixes from reader comments

  • Loading branch information...
1 parent cb9f031 commit e9f8e99b76e575371c1e927eb22840f258e54783 @Chouser Chouser committed Jul 12, 2011
Showing with 3 additions and 3 deletions.
  1. +1 −2 src/joy/a.clj
  2. +2 −1 src/joy/refs.clj
View
@@ -14,8 +14,7 @@
([deltas size yx]
(filter (fn [new-yx] (every? #(< -1 % size)
new-yx))
- (map #(map + yx %)
- deltas))))
+ (map #(vec (map + yx %)) deltas))))
(defn estimate-cost [step-cost-est sz y x]
(* step-cost-est
View
@@ -1,6 +1,7 @@
(ns joy.refs
"Examples for Ref in section 11.2"
- (use [joy.mutation :only (dothreads!)]))
+ (use [joy.mutation :only (dothreads!)]
+ [joy.a :only (neighbors)]))
(def initial-board

0 comments on commit e9f8e99

Please sign in to comment.