Detecting Victory: Function

(defn cell-empty?
  [cell-value] (not= :empty cell-value))

(defn winning-line? [cell-row]
  (and
   (apply = cell-row)
   (apply cell-empty? cell-row)))