test

gistfile1.txt

module Test where 

import Data.Char (toUpper)

someFunc :: [Char] -> [[Char]]
someFunc xs = go 1 [] xs 
  where 
    go :: Int ->  [[Char]] -> [Char] -> [[Char]]
    go n acc [] = acc 
    go n acc xs = if n <= length xs
                  then go (n + 1) (acc <> [mkUpper n xs]) xs 
                  else acc 
    mkUpper :: Int -> [Char] -> [Char]
    mkUpper n cs = 
      let fs = replicate (n-1) id 
            <> [toUpper] 
            <> replicate (length cs - n) id
      in  zipWith (\x y -> y x) cs fs