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]]