Task

Write a procedure which accepts as arguments another procedure and a positive integer.

The latter procedure is executed a number of times equal to the accepted integer.




 
f1 <- function(...){print("coucou")}
 
f2 <-function(f,n){
lapply(seq_len(n),eval(f))
}
 
f2(f1,4)
 