目前，我在摆弄有关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)
？
最小的变化：
sequence [(,) resPt <$> readArray board resPt
| ...
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句