gistfile1.txt

parseRank :: String -> Rank
parseRank string = case string of
  "clubs" -> Club
  "diamonds" -> Diamond
  "spades" -> Spade
  "hearts" -> Heart
  _ -> Heart

parseNumber :: String -> Number
parseNumber string = case string of
  "ace" -> Ace
  "two" -> Two
  "three" -> Three
  "four" -> Four
  "five" -> Five
  "six" -> Six
  "seven" -> Seven
  "eight" -> Eight
  "nine" -> Nine
  "ten" -> Ten
  "jack" -> Jack
  "queen" -> Queen
  "king" -> King

parseString :: String -> Card
parseString string = case words string of
  [number, theWordOf, rank] -> Card number (parseRank rank)
  _ -> Card Ace Heart