Wie akzeptiere ich Benutzereingaben und Anruffunktionen basierend auf diesen?

Question

import System.IO 

makeGrid :: Int -> Int -> a -> [[a]] 
makeGrid x y = replicate y . replicate x 

startGame = do 
putStrLn "Select a difficulty (1,2): " 
difficulty <- getLine 
|difficulty == '1' = makeGrid 3 3 False 
|difficulty == '2' = makeGrid 5 5 False 
|otherwise = putStrln "Wrong thing" 
      some function   --start from beginning again 

Wie Sie sehen, habe ich eine Funktion makeGrid. Ich möchte Benutzereingaben in startGame nehmen und makeGrid basierend auf der Benutzereingabe aufrufen. Mach auch wenn möglich eine while-Schleife, wie soll ich das machen?

Answer 1

{-# LANGUAGE LambdaCase #-} 

import System.IO 

playGame = do 
    grid <- initializeGrid 
    -- game code goes here 

initializeGrid = do 
    putStrLn "Select a difficulty (1,2): " 
    getLine >>= \case -- "difficulty <- getLine" <newline> "case difficulty of" also ok 
    "1" -> return $ makeGrid 3 3 False 
    "2" -> return $ makeGrid 5 5 False 
    _ -> do 
     putStrln "Wrong thing" 
     initializeGrid 

makeGrid :: Int -> Int -> a -> [[a]] 
makeGrid x y = replicate y . replicate x