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，我覺得從小練習與試驗中學習不僅能學到知識，更重要的是因為興趣而快樂，因為快樂而充實。（注：由於個人能力有限，有些地方難免繁瑣或者有疏漏，不吝賜教。）