haskell - do 语句中的 if/then/else (Haskell)

Question

我有一个我写的代码块不能编译，因为 if/then/else 块没有以编译器理解的方式设置，但是我不知道如何重写它所以它可以。

playRandomly board = do
                 let vMoves = getValidMoves board board
                 if vMoves == [] then return [] else
                 rMove <- uniform vMoves
                 let Just nBoard = runMove board rMove
                 rest <- playRandomly nBoard
                 return (rMove : rest)

基本上，uniform如果列表为空，该函数将除以零，所以我需要一种方法来捕获它并在继续执行 do 语句之前返回空列表。有什么建议吗？

Answer 1

您可以将剩余的命令包装在一个新的do

playRandomly board = do
             let vMoves = getValidMoves board board
             if vMoves == [] 
               then return [] 
               else do
                 rMove <- uniform vMoves
                 let Just nBoard = runMove board rMove
                 rest <- playRandomly nBoard
                 return (rMove : rest)

但是，我想警告您，如果您多次执行此操作，您的代码将向外阶梯，变得不可读。为了解决这个问题，你可以分解函数，或者使用 monad 进行错误检查。