# Non-elegant

(defn make-new [size]
  (vec (repeat size "*")))

(defn open-space? [index cells]
  (if (= "*" (get cells index)) true false))

(defn full? [cells]
  (= 9 (count (filter (fn [cell] (not (= "*" cell)))cells))))

(defn find-open-spaces [cells]
  (filter (fn [cell] (if (= "*" cell))) cells))

# More elegant

(defn make-new [size]
  (vec (range 1 (inc size))))

(defn open-space? [index cells]
  (if (number? (get cells index)) true false))

(defn full? [size cells]
  (= size (count (filter string? cells))))

(defn find-open-spaces [cells]
  (filter (fn [cell] (number? cell)) cells))