Haskell列表元素替换问题：根据坐标列表替换网格元组

原代码存在几个关键问题：

• 模式匹配仅针对单元素列表，无法处理多元素的网格或坐标列表
• 条件判断中elem的参数语法错误，[(x2,y2)] : (x1,y1)试图将列表与元组拼接，类型不兼容
• otherwise后的语法错误，不需要额外添加(x1,y1)
• where块中的列表推导完全冗余，还导致变量重复定义

正确实现代码 #

getHash :: [(Int, Int)] -> [(Int, Int)] -> [String]
getHash coords grid = map (\pos -> if pos `elem` coords then "#" else "_") grid

代码说明 #

• 用map遍历网格列表grid中的每个坐标元组pos
• 对每个pos，用elem判断是否存在于坐标列表coords中
• 存在则替换为"#"，否则替换为"_"，最终返回替换后的字符串列表

如果需要返回单个字符的列表（而非单字符字符串），可以把"#"和"_"换成'#'和'_'，同时调整类型签名为[(Int,Int)] -> [(Int,Int)] -> [Char]。

内容的提问来源于stack exchange，提问作者Rara