haskell - 如何在单个函数中执行多个语句？

Question

我正在学习 Haskell，为了完成一项作业，我必须打印蛇梯游戏。一开始，我尝试打印电路板，这就是我所做的。

import Data.List
aRow :: Int -> String
aRow n = "+" ++ take (4*n) (intercalate "" (repeat "---+")) ++ "\n|" ++      take (4*n) (intercalate "" (repeat "   |")) ++ "\n"

board :: Int -> Int -> IO()
board 1 y = putStrLn (aRow y)

我想要另一个 board 实例，它接受参数 x 和 y

board x y = putStrLn (aRow y)
            board (x-1) y

我知道我不能像这样调用多个语句，但是任何人都可以提供一些关于我如何处理这个的见解吗？我想用参数 'y' 调用 aRow 并执行 'x' 次。

谢谢。

此外:当我调用 board 1 y 时，我将其作为输出: 板 1 5
+---+---+---+---+---+
| | | | | |

Answer 1

我认为最简洁的方法是在不执行任何 IO 的情况下创建电路板，然后在最后仅使用 IO 将其打印出来。

您可以使用concat 和replicate 来实现:

board :: Int -> Int -> String
board x y = concat (replicate y (aRow x))

您可能在底部漏掉了一行，但我会让您弄明白的!

顺便说一句，take (4*n) (intercalate ""(repeat "---+")) 与 concat (replicate n "---+ ") 所以你可以将 aRow 写成:

aRow :: Int -> String
aRow n = '+' : concat (replicate n "---+")
      ++ "\n|" ++ concat (replicate n "   |")
      ++ "\n"

编辑:我会使用 unlines::[String] -> String 在多行上连接多个 String:

aRow :: Int -> String
aRow n = unlines
  [ '+' : concat (replicate n "---+")
  , '|' : concat (replicate n "   |")
  ]