Tetris addT

Sign in to test your solution.
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
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.