用lapply就行,
ff <- lapply(1:100, function(b) {
  return(function(x) {
    x ^ 2 + 2 * x - b
  })
})
ff[[1]]
ff[[2]]
ff[[1]](10)