erlang程序实例

        erlang也学了有一阵子了,环境也配置了.平常只是把书上的例子敲到电脑上去运行.也去看了一下ejabberd的代码,觉得还是要自己去写一些代码才可以实际掌握语言的编程理念,毕竟这是一门函数式编程语言.不同于一般其它的命令式编程.

       先从它的基本数据类型列表的处理开始吧.程序实现了列表的逆序,列表的连接.连接函数的参数是一个列表,列表每个元素也是一个列表.还是上代码吧!

-module(mylists).
-export([reverse/1]).
-export([concate/1]).
-export([flatten/1]).

reverse([],Ret) -> Ret;
reverse([H|T],Ret) ->
.       Temp = [H|Ret],
.       reverse(T,Temp).

reverse(L) -> reverse(L,[]).

concate([],L) -> L;
concate([H|T],L) ->
.       Temp=[H|L],
.       concate(T,Temp).


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

flatten(L) ->  Temp = concate(L), 
.       case Temp == L of
.       .       true -> Temp;
.       .       false -> flatten(Temp)
.       end.

运行结果如下:

5> c(mylists.erl).
{ok,mylists}
6> mylists:reverse([1,3,4,5]).
[5,4,3,1]

7> mylists:concate([[1,2,4],[45,14,634]]).     
[1,2,4,45,14,634]
8> mylists:concate([[1,2,4],[45,14,634],[4,5,6]]).
[1,2,4,45,14,634,4,5,6]

59> mylists:flatten([[1,3,45,667,0,[245]],[23],[1,3,4],[1,[3,5,[4]]]]).
[1,3,45,667,0,245,23,1,3,4,1,3,5,4]