Exercício 1

(Solução)

• cabeçalho do módulo;
• count/1: conta o número de elementos da lista;
• member/2: verifica se o elemento pertence à lista;
• occur/2: conta o número de ocorrências do elemento na lista;
• delete/2: apaga todas as ocorrências do elemento na lista;
• append/2: junta os elementos de duas listas numa única;
• reverse/1: inverte a ordem dos elementos da lista;
• average/1: calcula a média dos elementos da lista.

Cabeçalho

-module(exercicio1).
-export([count/1, occur/2, delete/2, append/2, member/2, reverse/1, average/1]).

Count

• Versão 1

count([]) -> 0;
count([H|L]) -> count(L)+1.

• Versão 2 (usando acumulador)

count(L) -> count(L,0).

count([],N) -> N;
count([H|L],N) -> count(L,N+1).

• Versão 3  (usando acumulador e guardas)

count(L) when list(L) -> count(L,0).

count([],N) -> N;
count([H|L],N) -> count(L,N+1).

Member

• Versão 1

member(E,[E|_]) -> true;
member(E,[_|L]) -> member(E,L);
member(_,[]) -> false.

• Versão 2 (usando nomenclatura de conjuntos)

member(E,L) when list(L) ->
	L2=[X||X<-L,X==E],
	case L2 of
		[] -> false;
		_ -> true
	end.

Occur

• Versão 1

occur(_,[]) -> 0;
occur(E,[E|L]) -> occur(E,L)+1;
occur(E,[_|L]) -> occur(E,L).

• Versão 2 (usando acumulador e guardas)

occur(E,L) when list(L) -> occur(E,L,0).

occur(_,[],N) -> N;
occur(E,[E|L],N) -> occur(E,L,N+1);
occur(E,[_|L],N) -> occur(E,L,N).

• Versão 3 (usando nomenclatura de conjuntos)

occur(E,L) when list(L) ->
	L2=[X||X<-L,X==L],
	count(L2).

Delete

• Versão 1

delete(_,[]) -> [];
delete(E,[E|L]) -> delete(E,L);
delete(E,[A|L]) -> [A|delete(E,L)].

• Versão 2 (usando acumulador)

nota: esta versão não mantém os elementos pela ordem inicial.

delete(E,L) when list(L) -> delete(E,L,[]).

delete(_,[],A) -> A;
delete(E,[E|L],A) -> delete(E,L,A);
delete(E,[H|L],A) -> delete(E,L,[H|A]).

• Versão 3 (usando nomenclatura de conjuntos)

delete(E,L) when list(L) -> [X||X<-L,X=/=E].

Append

• Versão 1

append([H|L1],L2) -> [H|append(L1,L2)];
append([],L2) -> L2.

• Versão 2 (usando nomenclatura específica)

append(L1,L2) when list(L1),list(L2) -> L1++L2.

Reverse

(usando acumulador e guardas)

reverse(L) -> reverse(L, []).

reverse([H|L], Reversed) -> reverse(L, [H|Reversed]);
reverse([], Reversed) -> Reversed.

Average

(usando acumulador e guardas)

average(L) -> average(L, 0, 0).

average([], N, S) -> S/N;
average([H|L], N, S) -> average(L, N+1, S+H).

Última actualização: 02-03-2004