monzou · June 30, 2012 09:29
diff --git a/af01.hs b/af01.hs
 import Control.Applicative

 -- <$> は fmap の中置関数
 main = print $ filter (>50) $ (*) <$> [2, 5, 10] <*> [ 8, 10, 11 ] -- [ 55, 80, 100, 110 ]
	import Control.Applicative

	-- <$> は fmap の中置関数
	main = print $ filter (>50) $ () <$> [2, 5, 10] <> [ 8, 10, 11 ] -- [ 55, 80, 100, 110 ]