haskell - 数学|x|怎么写在 haskell ？

Question

如何获得 (x - y) < 20总是积极的？

我想提出一个条件:

getJOL :: [Int] -> String
getJOL [w,x,y,z] = if x - w < 20 && y - x < 20 && z - y < 20
                     then "Good calibration"
                     else "Bad calibration"

两个值之间的差值必须为正。

Answer 1

是的，abs就是你想要的函数。这是 |x| 的常规名称大多数语言。

顺便说一句，您可能不应该对恰好四个列表元素的情况进行硬编码。它既不安全(如果有人给你一个包含五个元素的列表怎么办？)又重复。只需递归列表，并在找到距离过大的对时中止:

getJOL (w:x:ys)
  | abs (x - w) >= 20  = "Bad calibration"
getJOL (_:xs) = getJOL xs
getJOL [] = "Good calibration"