DimaD · August 29, 2015 14:05
diff --git a/example.clj b/example.clj
 ;; "Normal" operation order
 (->> [1 2 3]
      (map inc)
      (map #(* 2 %)
      (reduce +))
diff --git a/example.hs b/example.hs
 t :: [Integer] -> Integer
 -- "Reverse" operation order
 t x = foldr1 (+) $ map (*2) $ map (+1) x
diff --git a/example2.hs b/example2.hs
 t :: [Integer] -> Integer
 -- "Reverse" operation order
 t x = foldr1 (+) $ map (*2) $ map (+1) x

 -- Let's define forward-chaining operator
 ($>) = flip ($)

 t2 :: [Integer] -> Integer
 t2 x = x $> map (+1) $> map (*2) $> foldr1 (+)