arrays - Haskell:如何结合标量和单值？

Question

目前我正在摆弄有关 2D ST 数组和递归的 haskell 问题。

给定一个 2D 位置和一个方向数组，我写了一行返回数组内所有结果点的列表:

let cellsAround = [resPt | dir <- directions,
                         let resPt = (fst dir + fst point, snd dir + snd point),
                         fst resPt >= 0 && fst resPt <= fst maxIdx &&
                         snd resPt >= 0 && snd resPt <= snd maxIdx]

现在的目标是用数组的内容丰富结果列表项，我尝试了这个:

cellsAround <- sequence [readArray board resPt | dir <- directions,
                         let resPt = (fst dir + fst point, snd dir + snd point),
                         fst resPt >= 0 && fst resPt <= fst maxIdx &&
                         snd resPt >= 0 && snd resPt <= snd maxIdx]

这也很有效。但目标是获得 [(Point, Int)] 的组合，因为我必须过滤数组内容。

任何想法如何将其结合起来，比如说

(resPt, readArray board resPt)

？

Answer 1

最小的改变:

sequence [(,) resPt <$> readArray board resPt
         | ...