gistfile1.r

f <- function(x){x**2}

fgen <- function(k){
  return(function(x){
    f(k*x)
  })
}

generatedfuncs <- lapply(c(1:4),fgen)
evaluatedfuncs <- lapply(generatedfuncs,function(g){g(1)})

print(evaluatedfuncs)