Baby's first hangman.hs

import Data.List     (sort, intersperse, union)
import Data.Function ( (&) ) 
import System.Random (Random(randomRIO))

(|>) = (&)     -- 'cos I'm too old to switch...

pickRandomWord :: [ String ] -> IO String
pickRandomWord words = do 
  rand <- randomRIO (0, length words - 1)
  return (words !! rand)


displayLetter :: String -> Char -> Char
displayLetter guessed letter 
  | letter `elem` guessed = letter
  | otherwise = '_'


summaryLine :: String -> String -> Int -> String
summaryLine secret guessed turnsLeft =
  "\n" ++ wordTemplate ++ turnsLeftMsg ++ "\n" ++ alreadyGuessedMsg
  where
    wordTemplate = 
      secret 
      |> map (displayLetter guessed)
      |> intersperse ' '
    turnsLeftMsg = 
      "  (turns left: " ++ show turnsLeft ++ ")"
    alreadyGuessedMsg = 
      "Guessed so far: " ++  guessed |> sort |> intersperse ' '


scoreGuess :: String -> String -> Int -> Char -> IO ()
scoreGuess secret guessed turnsLeft guess
  | guess `elem` guessed = do
      putStrLn $ "You've already guessed " ++ show guess
      playGame secret guessed turnsLeft
  
  | guess `elem` secret = do
      putStrLn "Good guess!"
      playGame secret (guess:guessed) turnsLeft
  
  | otherwise =
      playGame secret (guess:guessed) (turnsLeft - 1)

playGame :: String -> String -> Int -> IO () 
playGame secret guessed turnsLeft 
  | turnsLeft == 0 = do 
      putStrLn $ "Sorry, the word was: " ++ secret

  | guessed `union` secret  == guessed = do
      putStrLn $ "Congratulations! The word was " ++ secret

  | otherwise = do 
      summaryLine secret guessed turnsLeft |> putStrLn 
      putStr "Your guess: "
      guess <- getLine
      scoreGuess secret guessed turnsLeft (head guess)


main :: IO ()
main = do
    dictionary <- readFile "../assets/17kwords.txt"
    let words = lines dictionary
    secret <- pickRandomWord words
    playGame secret [] 8

I know that this is an ongoing discussion in the community. I personally like reading code as a transformation, stuff starts on the left and travels through to the right.

I was using both VSCode and vim, both with the Haskell LS and linting, but didn't get brace warnings. I'll look into why not. And I'll check out Ormolu, too.

Thanks!

Dave