Tetris rotate

import Graphics.Gloss                                                                                                         
import Graphics.Gloss.Interface.Pure.Game                                                                                     
import Graphics.Gloss.Data.Color                                                                                              
import Data.List                                                                                                              
import System.Random

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

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

-- Rotate a block 90 degrees                                                                                                  
rotateBlock :: Int -> Block -> Block                                                                                          
rotateBlock offset (Block (x,y)) = Block  ((-y)+offset,x)                                                                     
                                                                                                                              
-- Rotate a whole tetromino                                                                                                   
-- This boils down to rotating all the blocks in the tetromino                                                                
-- try to use the map function for this in combination with rotateBlock                                                       
-- (* Difficulty 1 *)                                                                                                         
rotate :: Tetromino -> Tetromino                                                                                              
rotate (Tetromino s p c blocks) = undefined 
Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.