Cas 03.12.24 Football

tim(vardar,skopje,
    [igrac(nikolov,napad,data(10,6,1980)),
     igrac(stoev,odbrana,data(23,8,1992))],
    [natprevar(pelister,rezultat(3,1)),
     natprevar(pobeda,rezultat(2,2))]).

tim(pobeda,prilep,
    [igrac(meglenski,napad,data(27,6,1975)),
     igrac(stanoev,odbrana,data(23,8,1991))],
    [natprevar(pelister,rezultat(2,1)),
     natprevar(vardar,rezultat(0,2))]).

tim(pelister,bitola,
    [igrac(micevski,napad,data(12,6,1970)),
     igrac(nakov,odbrana,data(21,2,1978))],
    [natprevar(vardar,rezultat(1,0)),
     natprevar(pobeda,rezultat(0,1))]).

tim(rabotnicki,skopje,
    [igrac(andov,napad,data(12,5,1980)),
     igrac(stojanov,odbrana,data(23,8,1988))],
    [natprevar(pelister,rezultat(0,1)),
     natprevar(pobeda,rezultat(2,2))]).

%a
od_skopje(X):-tim(X,skopje,_,_).
%b
pod_3(tim(A,B,C,L)):-tim(A,B,C,L),length(L,N),N<4.
%v
pobeda_doma(Ime):-tim(Ime,_,_,L),member(natprevar(_,rezultat(A,B)),L),A>B.
%g
posle1990(Prez):-tim(_,_,L,_), member(igrac(Prez,_,data(_,_,G)),L),G>1990.
%d
posle1990lista(L):-findall(X,posle1990(X),L).
%gj
rodeni1980napad(Grad,Prez):-tim(_,Grad,L,_),member(igrac(Prez,napad,data(_,_,God)),L),God=1980.
%e
nereseno_doma(Ime):- tim(Ime,_,_,L),member(natprevar(_,rezultat(A,A)),L).
nereseno_doma_lista(L):-findall(Ime,nereseno_doma(Ime),L).
%zh
pobedil_gosti(Ime):-tim(_,_,_,L), member(natprevar(Ime,rezultat(A,B)),L),A<B.
pobedil_gosti_lista(L):- setof(Ime,pobedil_gosti(Ime),L).
%z
raz3(Ime):- tim(Ime,_,_,L),member(natprevar(_,rezultat(X,Y)),L),X>Y+3.
br_raz3(N):-setof(P,raz3(P),Timovi),!,length(Timovi,N);N=0.
%dz
%ova e za dzabe ama go napisav pa eve go
izguba_doma(Ime):-tim(Ime,_,_,L),member(natprevar(_,rezultat(A,B)),L),A<B.
izguba_gosti(Ime):-tim(_,_,_,L), member(natprevar(Ime,rezultat(A,B)),L),A>B.

nereseno_gosti(Ime):-tim(_,_,_,L), member(natprevar(Ime,rezultat(A,A)),L).

pobedi(Ime,N):-findall((Ime,A,B,Kaj),((tim(Ime,_,_,L), member(natprevar(Kaj,rezultat(A,B)),L),A>B);(tim(Kaj,_,_,L), member(natprevar(Ime,rezultat(A,B)),L),A<B)),L),!,length(L,N);N=0.
izgubi(Ime,N):-findall((Ime,A,B,Kaj),((tim(Ime,_,_,L), member(natprevar(Kaj,rezultat(A,B)),L),A<B);(tim(Kaj,_,_,L), member(natprevar(Ime,rezultat(A,B)),L),A>B)),L),!,length(L,N);N=0.
nereseno(Ime,N):-findall((Ime,A,Kaj),((tim(Ime,_,_,L), member(natprevar(Kaj,rezultat(A,A)),L));(tim(Kaj,_,_,L), member(natprevar(Ime,rezultat(A,A)),L))),L),!,length(L,N);N=0.

br_bodovi(Ime,Bod):-pobedi(Ime,W),nereseno(Ime,N),Bod is 3*W+N.
%i
br_tim_5_pobedi(N):-tim(Ime,_,_,_),bagof((Ime,X), (pobedi(Ime, X),X>5),L),!,length(L,N);N=0.
%j
timovi_pob_sk_dom(L):-setof(Ime,(tim(Ime,_,_,Nat),member(natprevar(Prot,rezultat(A,B)),Nat),od_skopje(Prot),A>B),L).
%k
posle1990L(L):-setof(Prez,posle1990(Prez),L).
%l
first_half([],[]).
first_half([(X,_)|Ost],[X|OstR]):-first_half(Ost,OstR).

timovi_grad(Grad,N):-tim(_,Grad,_,_),(findall(Ime,tim(Ime,Grad,_,_),L),length(L,N);N=0).
najmnogu_timovi(X):-findall((N,Grad),timovi_grad(Grad,N),L),member((Max,X),L),first_half(L,L1),max_list(L1,Max).
%ke se pvtora skopje kako odgovor
%lj
timovi(T):-findall(Tim,tim(Tim,_,_,_),T).
bodovi(T,B):-findall(Bod,(member(Ime,T),br_bodovi(Ime,Bod) ),B).
najmnogu_bodovi(X):-timovi(T),findall((Bod,Ime),(member(Ime,T),br_bodovi(Ime,Bod) ),L),member((Max,X),L),first_half(L,L1),max_list(L1,Max).