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.

CSDN: Erlang程序实例