Grid.hs

module Grid where

type Grid = [[Int]]

emptyGrid :: Grid
emptyGrid = [[0,0,0, 0,0,0, 0,0,0],
             [0,0,0, 0,0,0, 0,0,0],
             [0,0,0, 0,0,0, 0,0,0],

             [0,0,0, 0,0,0, 0,0,0],
             [0,0,0, 0,0,0, 0,0,0],
             [0,0,0, 0,0,0, 0,0,0],

             [0,0,0, 0,0,0, 0,0,0],
             [0,0,0, 0,0,0, 0,0,0],
             [0,0,0, 0,0,0, 0,0,0]]

evilGrid :: Grid
evilGrid = [[0,0,0, 0,8,7, 0,2,0],
            [8,0,7, 0,0,0, 0,0,0],
            [3,0,0, 5,0,0, 4,0,0],

            [0,0,0, 7,0,0, 0,5,4],
            [0,0,0, 4,0,9, 0,0,0],
            [6,9,0, 0,0,3, 0,0,0],

            [0,0,2, 0,0,4, 0,0,7],
            [0,0,0, 0,0,0, 5,0,6],
            [0,4,0, 1,7,0, 0,0,0]]

exampleGrid :: Grid
exampleGrid = [[5,3,0, 0,7,0, 0,0,0],
               [6,0,0, 1,9,5, 0,0,0],
               [0,9,8, 0,0,0, 0,6,0],

               [8,0,0, 0,6,0, 0,0,3],
               [4,0,0, 8,0,3, 0,0,1],
               [7,0,0, 0,2,0, 0,0,6],

               [0,6,0, 0,0,0, 2,8,0],
               [0,0,0, 4,1,9, 0,0,5],
               [0,0,0, 0,8,0, 0,7,9]]

evil2Grid :: Grid
evil2Grid = [[0,0,0, 4,1,0, 0,0,0],
             [0,8,0, 7,0,0, 2,0,0],
             [0,7,0, 0,0,0, 0,5,0],

             [0,0,6, 0,0,0, 3,0,0],
             [2,0,0, 0,9,6, 0,7,0],
             [0,0,0, 0,8,4, 0,0,0],

             [5,3,0, 0,0,0, 8,0,4],
             [0,0,0, 0,0,9, 0,6,0],
             [0,4,0, 0,0,1, 0,0,0]]

xtremGrid :: Grid
xtremGrid = [[1,0,0, 0,0,6, 7,0,0],
             [0,0,0, 0,8,0, 0,0,6],
             [0,9,0, 2,0,0, 0,0,0],

             [0,0,0, 9,0,0, 0,5,0],
             [3,0,0, 0,1,0, 8,0,0],
             [0,0,0, 0,0,0, 6,0,1],

             [0,2,0, 0,0,0, 0,4,0],
             [7,0,0, 0,3,0, 0,0,8],
             [8,0,4, 5,0,0, 0,0,0]]