Tetris onRow

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

--                                                                                                                                                                           
-- Predicate to make sure that a block is on a certain row                                                                                                                   
-- (* Difficulty 1 *)  
--
onRow :: Int -> Block -> Bool                                                                                                                                                
onRow y (Block (_,y2)) = undefined

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