Haskell 嵌套列表 [关闭]

Question

我是haskell 编程的新手，我正在尝试检查嵌套列表中对角相邻的元素是否彼此不为负。 我的功能是：

checkNegation :: [[Int]] -> Bool

示例：checkNegation[[1,2], [3, -1]] 将返回 False checkNegation [[1,2],[-1,3]] 将返回 True。

Answer 1

我建议将问题分解为多个步骤。

第1步：编写一个函数来获取对角线元素：

diag :: [[a]] -> [a]

您可能会发现this question 很有帮助。

第 2 步：您想检查结果列表中的相邻元素是否互为负数：

allAdjNeg :: [Int] -> Bool

allAdjNeg [-1,1,-1,1] = True.

这也可能最容易分步完成。在步骤 2(a) 中，检查每对相邻元素。您也许可以将this question 的答案改写为一个函数：

adjNeg :: [Int] -> [Bool]

提示：如果你定义一个函数isNeg x y = x == -y，这是一个二元运算符，就像(-)一样，可以与zipWith以同样的方式使用。

在步骤 2(b) 中，您想查看 adjNeg 返回的列表 adjNeg 是否为全真。 and :: [Bool] -> Bool 函数在这里会很有帮助。这应该允许您定义allAdjNeg。

然后，您的最终功能将类似于：

checkNegation :: [[Int]] -> Bool
checkNegation lsts = not (allAdjNeg (diag lsts))