El uso de los protectores en Let .. en expresiones

Question

veces escribo código como este

solveLogic :: Int -> Int -> Int 
solveLogic a b = 
    let 
     x = 1 
     brainiac 
      | a >= x  = 1 
      | a == b  = 333 
      | otherwise = 5 
    in 
     brainiac 

Y cada vez que tengo ganas de escribir estas cosas sin "cerebrito" que no sean necesarios función, así:

solveLogic :: Int -> Int -> Int 
solveLogic a b = 
    let 
     x = 1 
    in 
     | a >= x  = 1 
     | a == b  = 333 
     | otherwise = 5 

Qué código es mucho más "Haskellish". ¿Hay alguna forma de hacer esto?

Answer 1

Sí, utilizando una cláusula where:

solveLogic a b 
     | a >= x  = 1 
     | a == b  = 333 
     | otherwise = 5 
    where 
     x = 1 

Answer 2

Cuando quiero guardias como una expresión que utilizan este truco un poco fea

case() of 
_ | a >= x  -> 1 
    | a == b  -> 333 
    | otherwise -> 5