Array is of one element. Aka, equality without equal

% escript will ignore the first line

main(_) ->
    io:format("~p~n", [same([1,1,1,1,1,1])]).

same([H|[H|T]]) ->
    same([H|T]);
same([_]) ->
    true;
same(_) ->
    false.