week227.erl

-module(week227).
-compile([export_all]).
-include_lib("eunit/include/eunit.hrl").


join(Xs, Ys) -> 
    accumulate(shunt(Xs, []), Ys).

shunt([], Ys) ->
    Ys;
shunt([X|Xs], Ys) ->
    shunt(Xs, [X|Ys]).

accumulate([] ,Result) ->
    Result;
accumulate([X|Xs], Result) ->
    accumulate(Xs, [X|Result]).

concat([]) ->
    [];
concat([X|Xs]) ->
    join(X,concat(Xs)).

member(_N, []) ->
    false;
member(N, [X|Xs]) ->
    case X =:= N of
        true ->
            true;
        false ->
            member(N, Xs)
    end.

perms([]) ->
    [[]];
perms(L) ->
    [[X|Y] || X <- L, Y <- perms(L--[X])].


tests() ->
    ?assertEqual(join([],[]),[]),
    ?assertEqual(join([1,2,3],[4,5,6]),[1,2,3,4,5,6]),
    ?assertEqual(concat(["hello", "world"]),"helloworld"),
    % ?assertEqual(concat([]), []),
    ?assertEqual(perms([]), [[]]),
    ?assertEqual(perms([1,2,3]), [[1,2,3],[1,3,2],[2,1,3],[2,3,1],[3,1,2],[3,2,1]]).

Thanks will go thorough