операторы сравнения вызовов в Haskell

Question

мне нужно выяснить, если разница от differenceAB является наименьшим:

smallestDifference3 :: Int -> Int -> Int -> Int 
smallestDifference a b c 
    | differenceAB < differenceBC < differenceAC = differenceAB 
    | otherwise = differenceAB 
    where differenceAB 
     | a < b = -(a - b) 
     | otherwise = a - b 
     differenceBC 
     | b < c = -(b - c) 
     | otherwise = b - c 
     differenceAC 
     | a < c = -(a - c) 
     | otherwise = a - c 

, но я получаю эту ошибку:

cannot mix `<' [infix 4] and `<' [infix 4] in the same infix expression 

, как решить мою проблему? кто-нибудь знает? Привет!

Answer 1

Здесь есть пара проблем.

У вас есть 3 точно идентичных функции. Возможно, вы хотите значения:

smallestDifference a b c = .... 
    where 
    diffAC = abs(a-c) 
    diffAB = abs(a-b) 
    diffBC = abs(b-c) 

Теперь для выражения, вы не можете писать

diffAC < diffAB < diffBC 

< (так) не является ассоциативным оператором. Это значит, вы должны написать явные скобки:

(diffAC < diffAB) < diffBC 

Но это оленья кожа проверить тип, потому что для второго (<) с левой стороны является Bool, но правая рука Int. Что вы хотите

(diffAC < diffAB) && (diffAB < diffBC) 

т.е. если переменный ток ниже, то абы и аб ниже, чем до н

Answer 2

Там нет такого понятия, как цепочки операторов в Haskell. Вы должны использовать явные логические операции:

smallestDifference3 :: Int -> Int -> Int -> Int 
smallestDifference a b c 
    | (differenceAB < differenceBC) && (differenceBC < differenceAC) = differenceAB 
    | otherwise = differenceAB 

Кстати, ваш код странно, вы возвращаетесь differenceAB из обоих защитных положений. Непонятно, чего вы хотите достичь, поэтому я не могу помочь дальше.

Answer 3

Если вы просто хотите найти наименьшую разницу, следующая работа будет работать.

smallestdiff a b c = minimum [abs $ a-b, abs $ b-c, abs $a-c]