red/rebol中的"foreach"如何修改块的每个元素

Question

我想修改块的每个元素 foreach。我这样尝试但失败了：

>> a: [3 4 5 6]
== [3 4 5 6]
>> foreach i a [i + 1]
== 7
>> a
== [3 4 5 6] ;; block a is not changed. What I want is [4 5 6 7]

有没有更好的实现方式？

Answer 1

您对值所做的更改不会保留在块本身中。这与您的关于在 Rebol 和 Red 中传递按值调用参数有关：您在堆栈上修改了一个 copy （沿传递给 + 1), 而不是块 a.

内的实际值槽

要实现您想要的效果，您需要就地递增整数，而不是将它们压入堆栈。一种方法是使用 forall.

>> block: [1 2 3]
== [1 2 3]
>> also block forall block [block/1: block/1 + 1]
== [2 3 4]

forall 所做的是将一个词设置为一个系列，然后逐步增加其索引：

>> forall block [probe block]
[1 2 3]
[2 3]
[3]

由于它不提取实际值，您可以使用路径表示法访问它们，然后就地修改它们。 block/1 每次迭代总是选择第一个值。

Answer 2

>> help forall
USAGE:
   FORALL 'word body

DESCRIPTION: 
   Evaluates body for all values in a series. 
   FORALL is a native! value.

ARGUMENTS:
   'word        [word!] "Word referring to series to iterate over."
   body         [block!]

全部使用

> a: [3 4 5 6]
== [3 4 5 6]
>> forall a [a/1: a/1 + 1]
== 7
>> probe a
[4 5 6 7]
== [4 5 6 7]

Answer 3

像往常一样，你的 foreach 没有回复。

a: [2 3 4 5]
b: copy []
foreach i a [append b i + 1]

如果您愿意，现在可以将 a 设置为 b

a: b

一步执行此操作的问题是您没有可以在此处使用的索引（尽管提示字母 i，但它代表块内每个项目的内容）。

现在您可以选择自己喜欢的解决方案了。

red/rebol中的"foreach"如何修改块的每个元素

How to modify each element of a block by "foreach" in red/rebol

rebol

red