solucio(L):-
    L = [ [1,_,_,_,_,_], [2,_,_,_,_,_], [3,_,_,_,_,_], [4,_,_,_,_,_], [5,_,_,_,_,_] ],
    % [numcasa,color,profesió,animal,beguda,pais]
    % 1 - El que viu a la casa vermella és del Perú
    % 2 - Al francès li agrada el gos
    % 3 - El pintor és japonès
    % 4 - Al xinès li agrada el rom
    % 5 - L'hongarès viu en la primera casa
    % 6 - Al de la casa verda li agrada el conyac
    % 7 - La casa verda està just a l'esquerra de la blanca
    % 8 - L'escultor cria caragols
    % 9 - El de la casa groga és actor
    % 10 - El de la tercera casa beu cava
    % 11 - El que viu al costat de l'actor té un cavall
    % 12 - L'hongarès viu al costat de la casa blava
    % 13 - Al notari l'agrada el whisky
    % 14 - El que viu al costat del metge té un esquirol
    % 15 - El que té un gat no és a qui agrada la cervesa
    displaySol(L), halt.

displaySol(L):- member(P,L), write(P), nl, fail.
displaySol(_).