我正在解决数独问题，并尝试创建一个setBoardAt函数，该函数将使用setRowAt函数将板中某一行中的值之一更新为新值。

setRowAt :: Sequence -> Int -> Int -> Sequence
setRowAt s i v = take i s ++ [v] ++ drop (i + 1) s

setBoardAt :: Board -> Int -> Int -> Int -> Board
setBoardAt b i j v = take i b ++ [setRowAt [s] j v | s <- b !! i] ++ drop (i + 1) b 

在我的主菜单中，我可以使用setRowAt函数并使用在setBoardAt函数中映射的内容返回预期结果

main = do

  args <- getargs
  txt  <- readFile (head args)
  let board1 = getBoard txt
  print board1
  let seq1 = board1 !! 5
  print seq1
  let row1 = setRowAt seq1 2 5
  print row1
  let nboard1 = take 1 board1 ++ [row1] ++ drop (1 + 1) board1

收到的结果正确

[[5,3,7,0],[6,1,9,5,[0,8,6,[8,3],[4,1],[7,2,6],4,5],9]]
[7,6]
[7,6]

但是当我尝试使用具有相同参数的setBoardAt函数和嵌套的setRowAt函数时，我要处理的行返回错误，并且我无法查明原因。

main = do

  args <- getargs
  txt  <- readFile (head args)
  let board1 = getBoard txt
  print board1
  let test1 = setBoardAt board1 5 2 5
  print test1

[[5,9]]
[[5,[2,9]]

任何建议或见解将不胜感激。