Implementing the map function with a list of indices

Question

I want to implement the map function for specific indices only, like this:

mapFor :: (a -> a) -> [Int] -> [a] -> [a]

An example would