如何在 Haskell 中将一个主函数 :: IO () 重写为由一个主函数组成的两个函数 :: IO()

Question

我想通过拆分一些东西来使它成为一个更简单的主函数。但是当我添加一个新功能maakNieuwSpel时，我得到错误

 maakNieuwSpel :: Int -> String -> IO ()
 maakNieuwSpel aantal firstName= do let rijTegels = volleRijTegels
                                    let spelers = deSpelers aantal firstName 
                                    w <- spelSpelen rijTegels spelers 0
                                    putStrLn (w ++ "dit is waar ik mee bezig was in functie nieuwSpel")

当我在主

    eindstand <- maakNieuwSpel (digitToInt aantalTegenspelers) firstName

它给出了错误。

我尝试并想要实现的另一件事是通过放置一个 where 函数来重写 main 中的 let 函数。像这样的事情是我的想法

    eindstand <- spelSpelen rijTegels spelers 0 
            where rijTegels = volleRijTegels
                   spelers = deSpelers (digitToInt aantalTegenspelers) firstName  

但随后它说" 输入'='上的解析错误，也许你需要在'do'块中有一个'let'？

这是我代码的一部分。我想你会对我在做什么有足够的了解。

 data Dobbelsteen = Steen Char -- now its values can be specified
                deriving (Show, Eq)  
 data Tegel = Teg Int Int 
          deriving (Show, Eq) 
 data Speler = Spel Tactiek Spelersstapel String
 type Tactiek = ([Dobbelsteen]  -> [Dobbelsteen] -> IO [Dobbelsteen], [Dobbelsteen]  -> Int -> IO Bool)
  type Spelersstapel = [Tegel]

 main :: IO ()  
 main = do putStrLn ("Hoi! Je speelt regenwormen. Wat is je naam?")
           firstName <- getLine  
           putStrLn ("Beste "++ firstName ++ ", je speelt tegen twee computertegenstanders. Ze heten Lap en Top.")
           putStr "Tegen hoeveel computertegenstanders wil u spelen? (Dit spel is voor 2 tot 8 personen) "
           aantalTegenspelers <- getChar
           let rijTegels = volleRijTegels
           let spelers = deSpelers (digitToInt aantalTegenspelers) firstName 
           eindstand <- {-maakNieuwSpel (digitToInt aantalTegenspelers) firstName-} spelSpelen rijTegels spelers 0
           putStrLn ("Het spel is afgelopen. De eindstand is " ++ eindstand)

spelSpelen :: [Tegel]  -> [Speler]  -> Int -> IO String -- de RijTegels, de spelers en degene die gaat spelen (int)
spelSpelen []        spelers spelerNr = do return (show (bepaalEindStand spelers))
spelSpelen rijTegels spelers spelerNr = do let Spel tactiek stapel naam = (spelers !! spelerNr)
                                           putStrLn ("Deze speler is nu aan de beurt: " ++ naam)
                                           score <- beurt tactiek (x -> elem x (bepaalGeldigeScore spelers naam rijTegels))
                                           let rijTegelsNieuw = pakTegelAlsMogelijk rijTegels score
                                           let rijTegelsTeruggelegdNieuw = legTegelTerug spelers rijTegels score
                                           let spelersAfgepaktNieuw = pakTegelAf spelers score
                                           let spelersNieuw = voegTegelToeAanSpelerVanStapel spelersAfgepaktNieuw score naam rijTegelsTeruggelegdNieuw
                                           putStrLn ("De beurt van speler " ++ naam ++ " is nu afgelopen.")
                                           printStatus rijTegelsNieuw spelersNieuw
                                           spelSpelen rijTegelsNieuw spelersNieuw ( (spelerNr+1) `mod` 3)  

 volleRijTegels :: [Tegel] -- deze functie maakt de rij tegels van 21 tot 36.
 volleRijTegels = zipWith Teg [21..36] (replicate 4 1 ++ replicate 4 2 ++ replicate 4 3 ++ replicate 4 4)
 deSpelers :: Int -> String -> [Speler]
 deSpelers aantalTegenspelers firstName = do [Spel computerTactiek [] firstName, Spel computerTactiek [] "Lap", Spel computerTactiek [] "Top"]

Answer 1

你已经正确地完成了所有操作;缩进只有一个小问题。尝试缩进main的最后一行，如下所示：

 main :: IO ()  
 main = do
      -- ... stuff ...
      eindstand <- {-maakNieuwSpel (digitToInt aantalTegenspelers) firstName-} spelSpelen rijTegels spelers 0
      putStrLn ("Het spel is afgelopen. De eindstand is " ++ eindstand)

看看在我的版本中，eindstand和putStrLn前面的空格数如何相同？在您的版本中，putStrLn前面有一个额外的空格，导致 GHC 认为它是要spelSpelen的参数。如果您删除多余的空间，它应该开始工作。

Answer 2

这个问答可能更适合 codereview.stackexchange.com。

除了基本的缩进问题外，想要将main分成多个部分也是一个好主意。

此外，您将需要尝试使其中一些部分不IO。例如，应该可以在不接触任何IO的情况下解决所有游戏逻辑。如果游戏逻辑中没有任何getLine或putStrLn调用，则更容易测试，并且错误源很少，因为输入验证可以分离出自己的部分。

至于没有嵌入IO的游戏逻辑会是什么样子，我不能说，因为游戏逻辑是用荷兰语写的？如果您将此代码翻译成英文，或将代码的翻译副本重新提交给 codereview.stackexchange.com，则有人可能会建议如何执行此操作。