merge.erl

-module(merge).

-compile(export_all).

a(N) -> fun() -> [N|a(N+2)] end.
b(N) -> fun() -> [N|b(N+3)] end.

merge({A,B}) ->
  [An|AFunc] = A(),
  [Bn|BFunc] = B(),
  if
    An =:= Bn -> [ An| {AFunc, BFunc} ];
    An < Bn -> [ An| { AFunc, B }];
    Bn < An -> [ Bn| { A, BFunc }]
  end.  
  
c({A,B}) -> fun() -> [X| State ] = merge({A,B}), [X|c(State)] end.


test(Count, Fun) when Count > 0 ->   
  [X|Func] = Fun(),
  [ X | test(Count - 1, Func ) ];
test(0, Fun) ->
  [X|Func] = Fun(),
  [X].
  
%test(10, c({A(1), B(1)}))