Korzystanie sprawę dla multi-way jeśli

Question

Dziś znalazłem się wpisując następujący kod:

case() of 
    _ | x < 15 -> ... 
    _ | x < 25 -> ... 
    _ | x < 50 -> ... 
    _   -> ... 

Sens tego jest na tyle prosta, ale po prostu czuje ... źle wypowiedzieć case(). Czy ktokolwiek ma lepszą sugestię?

Przypuszczam, że ponieważ jestem branding na x, mógłbym napisać case x. Ale to nadal nie pozostawia mi nic do faktycznego dopasowania; chodzi tylko o strażników. I to wciąż wydaje się dziwne.

Answer 1

Nie ma nic złego w case(); Jest to najlepsze rozwiązanie dla tego przypadku użycia, chyba że chcesz używać najnowszych składniowych i niestandardowych rozszerzeń, takich jak GHC multi-way-if.

Answer 2

Inni wspomnieć, że case jeśli dobrze i mutli sposób, jeśli istnieje, ale chcę iść do lokalnego funkcji poprzez gdzie i niech stwierdzenie:

someFunction = do 
    x <- monadicOp 
    let f y | y < 5 = expr1 
      | y < 15 = expr2 
      | y < 25 = expr3 
      | True = expr4 
    f x 

To składniowo czystsze niż rozwiązania case i bardziej przenośny niż wielozadaniowy, jeśli.

EDIT:

W przypadku, gdy nie jest jasne, czy wartość porównywana, x w tym przypadku, to już w zasięgu podczas definiowania funkcji strzeżony (f), a następnie można po prostu zdefiniować wartość zamiast :

someFunction = do 
    x <- monadicOp 
    let r | x < 15 = expr1 
      | x < 25 = expr2 
    r 

Answer 3

można wykorzystać ocenę leniwy, aby wymyślić coś takiego:

import Data.List 
import Data.Maybe 
import Control.Applicative 

cases :: [(Bool,a)] -> a -> a 
cases lst d = snd $ fromJust $ (find fst lst) <|> Just (True,d) 

main = do 
    let x = 20 
     r = cases [(x < 15, putStr "15"), 
       (x < 25, putStr "25"), 
       (x < 50, putStr "50")] $ putStr "None" 
    in 
     r