game-of-life-random-board.clj

(defn create-board
  "Create a new board. Initializes all cells to be dead."
  [num-columns num-rows]
  (let [row (vec (repeat num-columns false))
        board (vec (repeat num-rows row))]
    board))


(defn generate-random-row
  [num-columns]
  (repeatedly num-columns #(if (>= 0.5 (rand 1)) true false)))


(defn create-random-board
  "Create a new board. Randomly assigns cells to be alive or dead."
  [num-columns num-rows]
  (let [board (vec (repeatedly num-rows
                               #(generate-random-row num-columns)))]
    board))