freesect-0.0.5: S15.hs

  {- # LANGUAGE FreeSections #-}  -- with GHC's -F you cannot...

  module S15(main) where

--main = print $ let f = (+) in zipWith f [1,2,3] [4,5,6]
--main = print $ let f = ( (+) __ 2 ) in map f [1,2,3]
  main = print $ let f = (+) __ 2 in map f [1,2,3]
--main = print $ map f [1,2,3] where f = (+) __ 2
--main = print $ map   ( (+) __ 2 )   [1,2,3]
--main = print $ map  _[ (+) __ 2 ]_  [1,2,3]
--main = print $ map  _[ (\x y -> x+y) __ 2 ]_  [1,2,3]