Skip to content

Instantly share code, notes, and snippets.

@u6f6o

u6f6o/blog-mines-02-warnings.clj

Created March 8, 2016 13:19
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save u6f6o/307cc090f41afa613f2a to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save u6f6o/307cc090f41afa613f2a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
blog-mines-02-warnings.clj
(defn- place-warnings
[board]
(->> (keep-indexed #(if (pos? %2) %1) (:mines board))
(mapcat (partial neighbours board))
(frequencies)
(reduce-kv set-warning board)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment