Tetris addT

import Graphics.Gloss.Data.Color

type Direction = (Int,Int)                                                                                                                                                   

data Block     = Block (Int,Int)                                                                                                                                             
                 deriving (Eq,Show)                                                                                                                                          
                                     

data Tetromino = Tetromino Int (Int,Int) Color [Block]                                                                                                                       
                 deriving (Eq,Show)                                                                                                                                          


data Board     = Board [Block]                                                                                                                                               
                 deriving (Eq,Show)   

move :: Direction -> Block -> Block                                                                                                                                          
move (x,y) (Block (p,q)) = Block (x+p,y+q)  


-- Add a tetromino to the board                                                                                                                                              
-- (* Difficulty 1 *)                                                                                                                                                        
addT :: Board -> Tetromino -> Board                                                                                                                                          
addT (Board b) (Tetromino s p c blocks) = undefined
Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.