module Test
    where

import AI
import Types


field :: Field
field =
    [ [ 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,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,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,2,0,0,0 ]
    ]

main :: IO ()
-- main = print $ fitness field
main = print $ fitness $ dropFigure (Z, 0) (5, -1) field
-- main = print $ mapFigure (Z, 0) (5, 16) field
