fork download
  1. import Control.Applicative
  2. main = do
  3. [(&&) <$> Just True <*> Nothing,
  4. (&&) <$> Just True <*> Just False,
  5. (&&) <$> Nothing <*> Just False,
  6. (&&) <$> Just True <*> Just True]
Success #stdin #stdout 0.01s 3580KB
stdin
Standard input is empty
stdout
Nothing
Just False
Nothing
Just True