deech · July 2, 2016 17:52
diff --git a/liftM2Equivalent.hs b/liftM2Equivalent.hs
 monadic = do
  x <- [0,1]
  y <- [0,2]
  return (x + y)
 applicative = (+) <$> [0,1] <*> [0,2]
 comprehension = [(x + y) | x <- [0,1], y <- [0,2] ]
 main = do
  print monadic
  print applicative
  print comprehension
	monadic = do
	x <- [0,1]
	y <- [0,2]
	return (x + y)
	applicative = (+) <$> [0,1] <*> [0,2]
	comprehension = [(x + y) \| x <- [0,1], y <- [0,2] ]
	main = do
	print monadic
	print applicative
	print comprehension