Erlang实战练习（一）

前两次主要讲了Erlang并发与并发的一些概念，为了更加快速的直接切入主题，我不再接着上次的话题，从本文开始，主要从实战角度分析Erlang、学习Erlang、总结Erlang。

练习1：生成斐波那契数列！

此练习比较简单，结果自己去测验，直接上代码：

-module(feibo).  %% 模块名与文件名feibo.erl一致
-export([feibo_list/1,element/1]).%%导出函数element、feibo_list,其中反斜杠"/"后面跟的整数值表示函数的参数个数

%% 编译：c(feibo).
%% 运行：feibo:feibo_list(5).
%% 结果示例：【1,1,2,3,5】

%% 函数element主要为了计算斐波那契数列的第N个元素
element(1) -> 1;
element(2) -> 1;
element(N) -> element(N-1) + element(N-2).

%% 给定一个N，求出斐波那契的前N个数
feibo_list(N) -> feibo_list([], N).

feibo_list(L, 0) -> L;
feibo_list(L, N) -> feibo_list([element(N)|L], N-1).

练习2：求列表元素平均值！

此练习也是比较基础，结果自己去测验，不再多解释，直接上代码：

-module(average).
-export([num/1,sum/1,count_average/1]).

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

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

count_average([]) -> 0;
count_average(L) -> sum(L)/num(L).

练习3：求1²+2²+3²+4²+5²+…+n²。

此练习也是比较基础，输入为N,输出为前N个数的平方和，直接上代码：

-module(square).
-export([sum_square/1]).

compute_square(X) -> X*X.

sum_square(1) -> compute_square(1);
sum_square(N) -> sum_square(N-1) + compute_square(N).

练习4：将两个列表连接起来。
将列表L1和L2连接起来，将L2的元素依次加入L1，代码如下：

-module(lists_concat).
-export([concat/2,reverse/1,rconcat/2]).

%%函数reverse将列表逆置
reverse(L) -> reverse(L,[]).

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

concatenate(L1,L2) -> concat(L1,reverse(L2)).

concat(L,[]) -> L;
concat(L,[H|T]) -> concat([H|L],T). 

练习5：快速排序。
这个快排在教材中有提到，网上也有很多，可以借鉴，主要是用到了列表的连接、列表解析等操作，此题不解释，代码如下：

-module(quick_sort).
-export([qsort/1]).

qsort([]) -> [];
qsort([Pivot|T]) ->
    qsort([X||X <- T,X < Pivot])
    ++[Pivot]++
    qsort([X||X <- T,X >= Pivot]).
    
    

本节主要通过5个基本的联系让我们对Erlang的实战进行了一定程度的认识，接下去我还会有大概10几个练习的专题来学习讨论Erlang，我觉得从小练习与试验中学习不仅能学到知识，更重要的是因为兴趣而快乐，因为快乐而充实。（注：由于个人能力有限，有些地方难免繁琐或者有疏漏，不吝赐教。）