Hangman 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+90/−4 lines, 3 files

Files

• Hangman.cabal +4/−4
• Hangman.hs +80/−0
• Words.hs +6/−0

@@ -2,9 +2,10 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                Hangman-version:             0.1.0.0+version:             0.1.0.1 synopsis:            The classic game of Hangman.--- description:         +description:         With a number of guesses you must figure out the hidden word!+homepage:            https://github.com/lf94/Hangman license:             GPL-3 license-file:        LICENSE author:              Lee Fallat@@ -12,9 +13,8 @@ -- copyright:            category:            Game build-type:          Simple--- extra-source-files:  +extra-source-files:  Hangman.hs Words.hs Tests.hs README.md cabal-version:       >=1.10-extra-source-files:  Tests.hs README.md  executable Hangman   main-is:             Main.hs

@@ -0,0 +1,80 @@+module Hangman where++import Control.Monad.Trans.State.Lazy+import Control.Monad.IO.Class++-- | Represents if a character is discovered.+data Letter = Hidden Char | Guessed Char++-- | Represents a word made up of letters.+type Word = [Letter]++-- | The state of the Hangman game. +data HangmanState = HangmanState Word (Int,Int) [Char]++-- | The start of the game.+hangman :: String -> Int -> IO ()+hangman word guesses = do+  let word' = fmap (\x -> Hidden x) word+  (hs, s) <- evalStateT looper (HangmanState word' (0, guesses) [])+  showState hs+  case s of+   True -> putStrLn "You've won!"+   False -> putStrLn "You've lost!"++-- | An iteration of the game.+looper ::  StateT HangmanState IO (HangmanState, Bool)+looper = do+  hs@(HangmanState word (guess,guesses) guessed) <- get+  liftIO $ showState hs+  userChar <- liftIO getChar+  let word' = fmap (checkGuess userChar) word+  let hs' = (HangmanState word' (guess+1,guesses) (userChar:guessed))+  case complete word' of+   True -> return (hs', True)+   False -> case guess == guesses of+     True -> return (hs', False)+     False -> do+       put hs'+       looper++-- | Print the state of the game.+showState :: HangmanState -> IO()+showState (HangmanState word (guess, guesses) guessed) = do+  putStrLn $+    wordToString word +++    " " +++    (show guess) ++ "/" ++ (show guesses)+  putStrLn $+    "Guessed:" ++ (show guessed)++wordToString :: Word -> String+wordToString = (fmap letterToChar)++letterToChar :: Letter -> Char+letterToChar l = case l of+  Hidden x -> '_'+  Guessed x -> x++-- | Transform a Hidden character into a Guessed character.+checkGuess :: Char -> Letter -> Letter+checkGuess c (Hidden x)+  | x == c = Guessed x+checkGuess c x = x++-- | Determine if we've reached the end of the game.+endGame :: Word -> (Int,Int) -> Bool+endGame word (guess,guesses)+  | complete word = True+  | guess == guesses = True+  | otherwise = False+++-- | Determine if the word is completely guessed.+complete :: Word -> Bool+complete = all isGuessed++isGuessed :: Letter -> Bool+isGuessed l = case l of+                 Hidden x -> False+                 Guessed x -> True

@@ -0,0 +1,6 @@+{-+A giant word list ready to rock and roll.+-}+module Words (list) where++list = [ "" ]