minesweeper.clj

(defn vec->matrix [n v]
  (->> v
       (partition n)
       (mapv vec)))

(defn empty-vec [n]
  (into [] (repeat n nil)))

(defn rand-numbers [n k]
  (->> (range n)
       shuffle
       (take k)))

(defn create-board [n bombs]
  (->> (rand-numbers (* n n) bombs)
       (reduce (fn [acc pos]
                 (assoc acc pos :bomb))
               (empty-vec (* n n)))
       (vec->matrix n)))


(def board (create-board 5 12))

board


(defn neighbours [n x y]
  (->> [[(inc x) y]
        [(dec x) y]
        [x (inc y)]
        [(inc x) (inc y)]
        [(dec x) (inc y)]
        [x (dec y)]
        [(inc x) (dec y)]
        [(dec x) (dec y)]]
       (filter (fn [[x y]]
                 (and (<= 0 x (dec n))
                      (<= 0 y (dec n)))))))

(count (filter #(= :bomb (get-in board %))
               (neighbours 5 0 1)))