99-haskell-problems/Problems 21-28/problem_21.hs

insertAt :: a -> [a] -> Int -> [a]
insertAt x ls n = left ++ [x] ++ right
  where
    (left, right) = splitAt (n - 1) ls