Riješenje prvog zadatka

prvi-zadatak.pl

skupina(c, francuska).
skupina(c, danska).
skupina(c, peru).
skupina(c, australija).
skupina(d, hrvatska).
skupina(d, argentina).
skupina(d, nigerija).
skupina(d, island).

utakmica(francuska, australija, 2, 1).
utakmica(peru, danska, 0, 1).
utakmica(danska, australija, 1, 1).
utakmica(francuska, peru, 1, 0).
utakmica(australija , peru, 0, 2).
utakmica(danska, francuska, 0, 0).
utakmica(hrvatska, nigerija, 2, 0).
utakmica(argentina, island, 1, 1).
utakmica(hrvatska, argentina, 3, 0).
utakmica(nigerija, island, 2, 0).
utakmica(hrvatska, island, 2, 1).
utakmica(argentina, nigerija, 2, 1).

bod(E, P, B) :-
  utakmica(E, P, X, Y),
  ( X > Y -> B is 3; X < Y -> B is 0; B is 1 ),
  write(B).