>module InfixFunction where > >-- This is a flipped $ >infixl 0 $- >($-) :: a -> (a -> b) -> b >($-) x f = f x > >example1 :: Int >example1 = > -- 3 `\x y -> x + y` 4 > 3 $- (\y x -> x + y) 4 > >example2 :: Int >example2 = > -- 1 `\x y -> x + y` 2 `\x y -> x` 3 > 1 $- (\y x -> x + y) 2 $- (\y x -> x + y) 3
Note the swap in argument order in the lambda abstractions! Rijk-Jan van Haaften _______________________________________________ Haskell mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/haskell
