Haskell 中的函数优先级

Question

所以我正在做一些 coding problem，为了解决这个问题，我正在尝试创建一个包含所有可能答案的列表，然后我会在被要求时查看该答案是否存在。然而，我运行遇到了“o1”、“o2”和“o3”的函数优先级问题——尽管它们代表像 *、div、+、这样的表达式——它们都有相同的优先级，所以当出现像 4 + 4 + 4 * 4 这样的选项时，程序会回答 48 而不是正确答案 24.

我想问的是，有什么方法可以改变函数“o1”、“o2”和“o3”的优先级，或者让它们反映运算符的优先级？

代码：

options :: [Int -> Int -> Int]
options = [(+), (-), div, (*)]
optionsStr = [" + 4", " - 4", " / 4", " * 4"]

createOptions :: Int -> Int -> Int -> (Int, String)
createOptions first second third = (key, value)
    where
        o1 = options !! first
        o2 = options !! second
        o3 = options !! third

        key = 4 `o1` 4 `o2` 4 `o3` 4 -- precedence issue is here
        value = "4" ++ (optionsStr !! first) ++ (optionsStr !! second) ++ (optionsStr !! third)

answerList :: [(Int, String)]
answerList = (concat . concat) $ map f [0..3]
    where 
        f x = map (f' x) [0..3]
        f' x y = map (createOptions x y) [0..3]

Answer 1

您可以更改具有固定性声明的中缀函数的优先级：

infixl 6 `o1`
infixl 6 `o2`
infixl 7 `o3`

见the haskell report

Haskell 中的函数优先级

Function Precedence In Haskell

haskell

operator-precedence