Left to Right composition --

ArrayOfN.hs

import Control.Arrow 

(|>) = flip ($)

zipWithIndex = zip [0..]

fn' n = map (\(a,b) -> a) (zipWithIndex (replicate n 0))

fn n = 
    n 
    |> (flip replicate) 0 -- PRO TIP: same as (`replicate` 0)
    |> zipWithIndex 
    |> map (\(a,b) -> a)
    
fn'' n = 
    (flip replicate 0) -- PRO TIP: same as (`replicate` 0)
    >>> zipWithIndex
    >>> map (\(a,b) -> a)
    $ n

FilterOddIndex.hs

import Control.Arrow

(|>) :: a -> (a -> b) -> b
(|>) = flip ($)

(|>>) :: (a -> b) -> (b -> c) -> a -> c
(|>>) = flip (.)

-- left to right composition mediante flip, es valido, me bancan?

zipWithIndex = zip [0..]

filterOddIndex :: [Int] -> [Int]
filterOddIndex lst = 
  lst
  |> zipWithIndex
  |> filter (\(index, x) -> (index + 1) `mod` 2 == 0) 
  |> map (\(index, x) -> x)
  
  
 
filterOddIndex' :: [Int] -> [Int]
filterOddIndex' = 
  zipWithIndex
  |>> filter (\(index, x) -> (index + 1) `mod` 2 == 0) 
  |>> map (\(index, x) -> x)


filterOddIndex'' :: [Int] -> [Int]
filterOddIndex'' = 
  zipWithIndex
  >>> filter (\(index, x) -> (index + 1) `mod` 2 == 0) 
  >>> map (\(index, x) -> x)