Erlang练习题----shopping

直接就上代码了:

-module(shop).
-export([cost/1,total/1]). cost(orange) -> 5;
cost(newspaper) -> 8;
cost(apples) -> 2;
cost(pears) -> 9;
cost(milk) -> 7. total([{What, N}|T])  -> cost(What)*N + total(T);
total([])   -> 0.

上面这段代码使用了迭代结构(recursive),但是,这种迭代结构存在问题,如果我们输入的T list太长的话,它会吃掉我们很多很多的内存。怎么办?聪明的先驱们已经想好了解决办法,有种叫tail recursive的方法,如下:

-module(shop).
-export([cost/1,total/1]). cost(orange) -> 5;
cost(newspaper) -> 8;
cost(apples) -> 2;
cost(pears) -> 9;
cost(milk) -> 7. total([{What, N}|T]) -> total([{What, N}|T], 0). total([], Acc) -> Acc;
total([{What, N}|T], Acc) -> total(T, Acc + cost(What)*N).

我们看到这里事实上有两个total函数,而且我们export的是只有一个参数的total函数:第一个只有一个参数,即我们如数的“商品-数量”的list,它是作为一个“伪装”,方便我们调用第二个total;而第二个total,有两个参数,其中一个是list,另一个则是用来暂存迭代值的临时变量。显然,如果使用这种迭代结构,每次迭代我们只需传递并保存两个参数,而不是一个待计算的表达式,这大大的节省了ram。

上一篇:OL/SQL编程练习


下一篇:简单的反编译class文件并重新编译的方法