%% @author tangjianwen
-module(practice_03).
-export([start/0]).
%%传入两个列表,(L1,L2)
%%通过头|尾进行判断
% 大于
start()->
%%数据初始化
L1=[1,2,3,5,7,7],
L2=[2,4,6,8,9],
%%调用合并函数
gether(L1,L2,[]).
gether([H1|T1],[H2|T2]=Z,Str) when H1<H2 -> %%L1头小于L2时
%% M=lists:append(Str, H1),
io:format("Format ~p~n",H1),
gether(T1,Z,Str ++ [H1]);
gether([H1|T1]=Z,[H2|T2],Str) -> %%L1头大于L2时
%% NewStr=lists:append(Str, H2),
io:format("Format ~p~n",H2),
gether(Z,T2,Str ++ [H2]);
%%L1为空时
gether([],L2,Str)-> Str ++ L2;
%%L2为空时
gether(L1,[],Str)-> Str ++ L1.
运行效果