Question

我正在尝试创建一个将数字存储到记录中的函数，然后在每次运行函数时将值X添加到该数字。

Value: 5
Run Function (Add One):   1
Value should be: 6
Run Function (Add One):   1
value should be 7

我试图使用记录：

-record(adder,{value :: integer()}).

---function 
   Number = random:uniform(6),
        L=#added{value = Number + #added.value}.

这不起作用，因为它每次都会重置值。有什么建议吗？

Answer 1

看看这段代码：

-module(test).
-export([add/1]).

-record(adder, {value=6}).

add(X) ->
    #adder{value = X + #adder.value}.

如果你在shell中编译它，任何对“add（3）”的调用都将导致“{adder，5}”，而不是“{adder，9}”。看看：

Eshell V6.4  (abort with ^G)
1> c(test).
{ok,test}
2> test:add(3).
{adder,5}
3> test:add(3).
{adder,5}

为什么？这是因为记录实际上是元组。最后一行中的“#adder.value”表达式被计算为加法器元组中字段“value”的位置，即2。让我们有一些证明。更改记录的定义：

-module(test).
-export([add/1]).

-record(adder, {field1, field2, value=6}).

add(X) ->
    #adder{value = X + #adder.value}.

现在，重新编译代码并再次调用add（3）将导致

1> c(test).
{ok,test}
2> test:add(3).
{adder,undefined,undefined,7}

我问自己，你是怎么想出这个问题的。你不希望你的功能是这样的吗？

add2(#adder{value = V} = R, X) ->
    R#adder{value = V + X}.

Answer 2

-record(adder, {value = 5}).

add(Value) ->
    add(#adder{}, Value).

add(#adder{value =V} = Adder, Value) ->
    Adder#adder{value = V + Value}.

test() ->
  R1 = add(1),
  io:format("~p~n", [R1]),
  R2 = add(R1, 10),
  io:format("~p~n", [R2]).

以下是运行test:test().

的输出

6> c(test).
{ok,test}
7> test:test().
{adder,6}
{adder,16}
ok

在Erlang中添加现有值

2 个答案: