u6f6o · March 8, 2016 15:07
diff --git a/blog-mines-02-autoclear.clj b/blog-mines-02-autoclear.clj
 (defn- explore-cell
  ([board idx]
    (explore-cell board #{} #{idx}))
  ([board explored remaining]
   (if (empty? remaining)
     board
     (let [curr       (first remaining)
           explored   (conj explored curr)
           remaining  (disj remaining curr)
           board      (set-explored board curr)
           candidates (nice-neighbours board curr)
           remaining  (union remaining (difference candidates explored))]
       (recur board explored remaining)))))
	(defn- explore-cell
	([board idx]
	(explore-cell board #{} #{idx}))
	([board explored remaining]
	(if (empty? remaining)
	board
	(let [curr (first remaining)
	explored (conj explored curr)
	remaining (disj remaining curr)
	board (set-explored board curr)
	candidates (nice-neighbours board curr)
	remaining (union remaining (difference candidates explored))]
	(recur board explored remaining)))))
No results found