persona(patricia,9,femenino).
persona(laura,9,femenino).
persona(juan,9,masculino).

persona(teresa,8,femenino).
persona(pedro,8,masculino).
persona(laura,8,femenino).


buscar_por_edad(E,L):-
		bagof(P,S^persona(P,E,S),L).
		
buscar_ordenado_por_edad(E,L):-
		setof(P,S^persona(P,E,S),L).
		
buscar_por_edad_2(E,L):-
		findall(P,persona(P,E,_),L).
		

buscar_por_sexo(S,L):-
		bagof(P,E^persona(P,E,S),L).
		
buscar_ordenado_por_sexo(S,L):-
		setof(P,E^persona(P,E,S),L).
		

buscar_por_sexo_2(S,L):-
		findall(P,persona(P,_,S),L).
		

buscar_personas_1(L):-
		bagof(P,E^S^persona(P,E,S),L).

	
buscar_personas_2(L):-
		findall(P,persona(P,_,_),L).

numero_personas_por_edad(E,N):-
	 	findall(X,persona(X,E,_),L),
		 contar(L,N).
  

contar([],0).
contar([_|Cola],N):- 
 		contar(Cola,N1),
 		N is N1+1.
