你怎么写数学| x | 在哈斯克尔？

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"

Answer 2

只需使用绝对值abs.这将检查绝对差值是否低于20.

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