RosettaCodeData/Task/Short-circuit-evaluation/Haskell/short-circuit-evaluation-3.hs

p && q = case p of
           False -> False
           _     -> case q of
                      False -> False
                      _     -> True

p || q = case p of
           True -> True
           _    -> case q of
                      True -> True
                      _    -> False