Skip to content

Instantly share code, notes, and snippets.

@mzero
mzero / set.hs
Last active December 10, 2015 18:08 — forked from mscurtescu/set.hs
module SetPrime where
-- import qualified Data. as List
-- no need to import List, as the function all is in the Prelude
import Control.Applicative ((<$>), (<*>))
-- prefer explicit imports most of the time
data Shape = Oval | Squiggle | Diamond deriving (Show, Eq, Bounded, Enum, Ord)
data Color = Red | Purple | Green deriving (Show, Eq, Bounded, Enum, Ord)