高级R中的惰性评估示例

Question

根据R中的懒惰评价（H. Wickham P.85的高级R），下面的代码应该返回20，但是我的返回值等于11.我是否误解了什么？

add <- function(x) {

function(y) x + y

}

adders <- lapply(1:10, add)
adders[[1]](10)