id:mickey24が解説記事を書いてくれるはずなので、正座して待ってます。iさんを早く殺してあげて欲しい。fさんに振り回されてかわいそう。。。
> f <- sapply(1:10, function(i){ function(x) { i } }) > lapply(f, function(func) (func)(3)) [[1]] [1] 10 [[2]] [1] 10 [[3]] [1] 10 [[4]] [1] 10 [[5]] [1] 10 [[6]] [1] 10 [[7]] [1] 10 [[8]] [1] 10 [[9]] [1] 10 [[10]] [1] 10 > f <- sapply(1:10, function(i){ i; function(x) { i } }) > lapply(f, function(func) (func)(3)) [[1]] [1] 1 [[2]] [1] 2 [[3]] [1] 3 [[4]] [1] 4 [[5]] [1] 5 [[6]] [1] 6 [[7]] [1] 7 [[8]] [1] 8 [[9]] [1] 9 [[10]] [1] 10 > > f <- lapply(1:10, function(i) { function(x){ i <<- i + 1; i } }); > f[[1]](1) [1] 11 > f[[1]](1) [1] 12 > f[[2]](1) [1] 11 > f[[3]](1) [1] 11
