解釋一個懶惰的評價怪癖

Question

我正在閱讀Hadley Wickhams在Github上的書，特別是this part on lazy evaluation。在那裏他給出了懶惰評價的後果的一個例子，在add/adders函數的部分。讓我引用這一點：你所說的加法器 之一

add <- function(x) { 
    function(y) x + y 
} 
adders <- lapply(1:10, add) 
adders[[1]](10) 
adders[[10]](10) 

x被懶洋洋地評估的第一次：

這[懶評測]創建與lapply關閉或循環時是非常重要的功能。在這一點上，循環完成，並且最終的值爲10。因此，所有的加法器函數都會在它們的 輸入上加10，可能不是你想要的！手動強制評估修復 問題：

add <- function(x) { 
    force(x) 
    function(y) x + y 
} 
adders2 <- lapply(1:10, add) 
adders2[[1]](10) 
adders2[[10]](10) 

我似乎不明白位，並且說明有最小。有人可以詳細說明這個特定的例子，並解釋發生了什麼？我特別困惑於這句話：「在這一點上，循環完成，x的最終值爲10」。什麼循環？什麼終極價值在哪裏？一定是我想念的東西，但我只是沒有看到它。提前致謝。

Answer 1

的目標：

adders <- lapply(1:10, function(x) add(x)) 

是創建的add功能列表，所述第一加1到其輸入端，第二加2等惰性求使R鍵等待真正創建加法器直到你真的開始調用函數。問題是在創建第一個加法函數後，x被lapply循環增加，結束於10的值。當您調用第一個加法函數時，懶惰評估現在生成函數，得到值x。的問題是，原始x不再等於一，但在lapply循環結束時的值，即10。

因此，惰性計算導致所有加法器的功能要等到lapply循環完成後在真正構建功能。然後他們用相同的值建立它們的函數，即10. Hadley建議的解決方案是直接評估x，避免延遲評估，並用正確的x值得到正確的函數。

Answer 2

從R 3.2.0起，這不再是真的！

在change log相應行讀取：

高階函數，如應用的功能和減少（）現在 力參數它們以消除延遲計算和之間 不必要的相互作用應用功能可變捕獲 關閉。

事實上：

add <- function(x) { 
    function(y) x + y 
} 
adders <- lapply(1:10, add) 
adders[[1]](10) 
# [1] 11 
adders[[10]](10) 
# [1] 20