1 module Prog(prog) where 2 3 import Board 4 import Wins 5 import Game 6 import Tree 7 8 9 prog :: String -> String 10 prog _ = 11 "OXO\n" ++ 12 concat (map showMove game) 13 where 14 game = alternate X max' min' testBoard 15 16 17 testBoard = [[Empty,O,Empty],[Empty,X,Empty],[Empty,Empty,Empty]] 18