リスト内の特定の条件を満たすすべてのアイテムを交換する方法

Question

私はこのリスト（how to do replacing-item in use nested list）をリストとして使用して、指定された条件を満たすアイテムを置き換える方法を解説しました。

具体的には、リスト内のすべての0を値= 0.5に置き換えたいとします。しかし、私が思いついたコードは、リストの最初のゼロを置き換えているように見えます。私はその理由を理解できません。

これは私のコードです：

to-report A-new-list-without-zeros [old new the-list] 
let A-index-list n-values length the-list [?] 
(foreach A-index-list the-list 
    [ if ?2 = old 
     [ report replace-item ?1 the-list new ] 
    ]) 
report the-list 
end 

そして、これは何が起こるかです：

observer> show A-new-list-without-zeros 0 0.5 [0 1 0 5 5 0] 
observer: [0.5 1 0 5 5 0] 

すべてのヘルプははるかに高く評価されるだろう！ありがとう

Answer 1

いつでもreportを使用すると、プロシージャを終了し、その時点で出力を報告します。

to-report A-new-list-without-zeros [old new the-list] 
let A-index-list n-values length the-list [?] 
(foreach A-index-list the-list 
    [ if ?2 = old 
     [ set the-list replace-item ? the-list new ] 
    ]) 
report the-list 
end 

observer> print A-new-list-without-zeros 0 0.5 [ 0 1 0 5 5 0 ] 
[0.5 1 0.5 5 5 0.5] 

Answer 2

このタスクをより容易にforeachよりmapで達成される：あなたのコードを使用してクイックフィックスは、それが現在のインデックスにある項目を置き換えるように、あなたのif文でreport行を変更することです。

NetLogo 6構文：

to-report A-new-list-without-zeros [old new the-list] 
    report map [[x] -> ifelse-value (x = old) [new] [x]] the-list 
end 

NetLogo 5構文：

to-report A-new-list-without-zeros [old new the-list] 
    report map [ifelse-value (? = old) [new] [?]] the-list 
end