F# をまねる

F# の |> 演算子がかっこよいので、Haskell で作ってみた。

infixl 0 |>
(|>) :: a -> (a -> b) -> b
a |> f = f a

以下のようにシェルのパイプのような感じで使う。

foo :: String
foo = [1..100]
   |> map (*2) 
   |> filter (\x -> x `mod` 6 == 0) 
   |> sum
   |> show