closureさん、怖いです...

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