Tetris freeBlock

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

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

-- Is a certain block free on the board                                                                
-- This means that the block should not be an element of the board                                     
-- (* Difficulty 1 *)  
freeBlock :: Board -> Block -> Bool                                                                    
freeBlock (Board l) b = undefined      

Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.