Skip to content

Instantly share code, notes, and snippets.

@tarquin-the-brave

tarquin-the-brave/bricksgametypes.hs

Created May 12, 2020 13:22
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save tarquin-the-brave/82fd5a9101d2461f5b93de83e70a5784 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save tarquin-the-brave/82fd5a9101d2461f5b93de83e70a5784 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
bricksgametypes.hs
import qualified Intcode as IC
import qualified Data.HashMap.Strict as HM
data Game = Game {
gameProg :: IC.Program,
gameDisplay :: Displ
} deriving(Show)
type Displ = HM.HashMap Tile Tid
type Tile = (Int, Int)
data Tid = Empty | Wall | Block | Paddle | Ball | BadTid | Score{theScore::Int} deriving(Show, Eq)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment