Pre-MiniMax

(defn minimax [board func]
  (if (game-is-over? board)
    (score board func)
    (let [available (find-available board)
          states (map #(make-move board player %))]
      (reduce func states))))

      
(defn maxi [board]
  (apply max (map minimax board mini)))
  
(defn mini [board]
  (apply min (map minimax board mini)))
  
(defn game-is-over? returns true if the current board is a game over)

(defn score returns the score of the board (which will depend on who is invoking minimax the first time)