simple-map

my.map <- function(l, f) { 
    ifelse(length(l) > 0,
           append(f(l[[1]]),
                  my.map(l[-1], f)),
           list()) 
}

my.map(list(1,2,3), identity) # returns list(1); should return list(1,2,3)