erlang实现zipwith函数

实现一个zip函数，将两个集合的元素合并起来，譬如

zip [1,2,3] [4,5]  = [(1,4),(2,5)], 和空集合合并还是空的。

 

-module(zip).
-export([zip/2]).

zip(_, []) -> [];
zip([], _) -> [];
zip([X|XS],[Y|YS]) -> [{X, Y}|zip(XS, YS)].

 ------------------结果测试-----------------------------