x = list(1:1000)
tmp = fsapply(x, sin)
if (FALSE) {
x = list()
set.seed(142313)
for (i in 1:1000) x[[i]] = rnorm(100)
system.time(for (i in 1:100) sapply(x, function(x) last(x)))
system.time(for (i in 1:100) fsapply(x, function(x) last(x)))
}
Run the code above in your browser using DataLab