nub.erl

-module(nub).
-export([nub/1]).
-export([nub_test/0]).

nub([]) -> [];
nub([_|_] = L) -> nub(L, []).

nub([], Ac) -> lists:reverse(Ac);
nub([H|T], Ac) ->
  case lists:member(H, Ac) of
    true -> nub(T, Ac);
    false -> nub(T, [H|Ac])
  end.

nub_test() ->
  [] = nub([]),
  [1] = nub([1]),
  [1] = nub([1,1,1,1]),
  [1,2] = nub([1,2]),
  [1,-2,2,0.5,'a'] = nub([1,-2,2,1,0.5,'a',2]),
  "led zpin" = nub("led zeppelin"),
  passed.