1 module Wins where 2 3 type Win = [[Int]] 4 5 wins :: [Win] 6 wins = [win1,win2,win3,win4,win5,win6,win7,win8] 7 8 win1,win2,win3,win4,win5,win6,win7,win8 :: Win 9 win1 = [[1,1,1], 10 [0,0,0], 11 [0,0,0]] 12 13 win2 = [[0,0,0], 14 [1,1,1], 15 [0,0,0]] 16 17 win3 = [[0,0,0], 18 [0,0,0], 19 [1,1,1]] 20 21 win4 = [[1,0,0], 22 [1,0,0], 23 [1,0,0]] 24 25 win5 = [[0,1,0], 26 [0,1,0], 27 [0,1,0]] 28 29 win6 = [[0,0,1], 30 [0,0,1], 31 [0,0,1]] 32 33 win7 = [[1,0,0], 34 [0,1,0], 35 [0,0,1]] 36 37 win8 = [[0,0,1], 38 [0,1,0], 39 [1,0,0]]