Sử dụng bảo vệ trong let .. trong các biểu thức

Question

Đôi khi tôi viết mã như thế này

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

Và mỗi khi tôi có đôn đốc để viết những điều này mà không cần thiết "Brainiac" chức năng, như thế này:

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

Mã nào nhiều hơn "Haskellish". Có cách nào để làm điều này không?

Answer 1

Vâng, sử dụng một điều khoản where:

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

Answer 2

Khi tôi muốn bảo vệ như là một biểu tôi sử dụng Hack hơi xấu xí này

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