Haskell - 数独中的空白单元格

Question

如果这个确切的问题已经被问过，我很抱歉......

我有一个 Haskell 的数独游戏，希望能在这里提供一些反馈。

目标是实现一个表示只包含空白单元格的数独的函数，然后将其命名为allBlankSudoku::Sudoku，其中

data Sudoku = Sudoku [[Maybe Int]]

你应该使用列表推导式或 map 函数来做到这一点，

map :: (a -> b) -> [a] -> [b]

这是我的看法:

allBlankSudoku :: Sudoku

allBlankSudoku = Sudoku (map (replicate 9) (replicate 9 Nothing))

但是!这是我的问题:在说明中说“不要在这里使用复制和粘贴编程!您的定义不需要超过几行。”

那么，我的代码是否在复制粘贴之上？还有其他方法可以做到吗？注意:这只是 3 个任务中的第一个任务，所以我认为它应该不难。

Answer 1

此处复制粘贴编程可能意味着您的教授不希望:

allBlank = Sudoku [[Nothing,Nothing,Nothing ... ]
                  ,[Nothing,Nothing,Nothing ...
                  ...
                  ]

顺便提一下，我想

allBlank = Sudoku (replicate 9 (replicate 9 Nothing))

对我来说更容易理解:)

如果您需要使用列表理解，您可以:

[ [ Nothing | x <- [1..9] ] | y <- [1..9] ]