3.Erlang 递归和尾递归

一，递归

1.将列表里的元素都+1

bump([])->[];
bump([H|T])->[H+1|bump(T)].

2.求平均数

sum([])->0;
sum([H|T])->H+sum(T).

len([])->0;
len([_|T])-> 1 + len(T).

average(T)->sum(T)/length(T).

3.筛选偶数

even([])->[];
even([H|T]) when H rem 2 =:=0 ->[H|even(T)];
even([_|T])->even(T).

4.判断列表成员

member(_,[])->false;
member(H,[H|_])->true;
member(H,[_|T])->member(H,T).

二，尾递归

尾递归就是使用额外的参数，作为累加参数，在计算的时候保存结果。

1.求和

sum_acc([],R)->R;
sum_acc([H|T],R)->sum_acc(T,R+H).

2.列表里元素+1

bump_acc([],R)->lists:reverse(R);
bump_acc([H|T],R)->bump_acc(T,[H+1|R]).

3.反转

reverse([],R)->R;
reverse([H|T],R)->reverse(T,[H|R]).

4.交错两个列表

mergeR([],[],Xz)->Xz;
mergeR(Xx,[H|T],Xz)->
    mergeL(Xx,T,[H|Xz]).

mergeL([],[],Xz)->Xz;
mergeL([H|T],Xy,Xz)->
    mergeR(T,Xy,[H|Xz]).

merge(Xx,Xy,Xz)->
    reverse(mergeL(Xx,Xy,Xz),[]).

5.平均值（不用迭代两次）

average_acc([],S,L)->S/L;
average_acc([H|T],S,L)->average_acc(T,S+H,L+1).

6.从1累加到指定数字

sum_1_to_b(0,S)->S;
sum_1_to_b(B,S)->sum_1_to_b(B-1,S+B).