UMBRELLAS

data UmbrellaState = True | False deriving Show
data WetState = True | False deriving Show

main :: IO ()
main = do map (putStrLn . show) (map isWet weekOfUmbrellaStates)
    where
        weekOfUmbrellaStates = [True, False, False, False, True, True]

isWet :: UmbrellaState -> WetState
isWet u
    | u == True     = u || u
    | u == False    = u && u
    | otherwise     = True