Haskell If 的多个条件

Question

我在进行以下练习时遇到问题:

编写一个函数，接收三个 Int 值，如果它们都是正数，则对它们求和，否则返回 0(零)。

我所做的如下:

sum' :: int -> int -> int -> int
sum' x y z = if x >= 0, y >= 0, z >= 0 then x+y+z else 0

我不知道如何在 if 上设置多个条件，不确定这是否是通过逻辑“连接器”完成的(例如 Java 中的 || 或 && )或者是否以与我编写的代码类似的方式完成。

Answer 1

可以通过多种方式完成。

例如，使用&&:

sum' :: Int -> Int -> Int -> Int
sum' x y z = if x >= 0 && y >= 0 && z >= 0 then x+y+z else 0

或者使用all和一个列表:

sum' :: Int -> Int -> Int -> Int
sum' x y z = if all (>= 0) xs then sum xs else 0
    where xs = [x, y, z]