序幕中的树木锦标赛

如何解决序幕中的树木锦标赛

你能帮我吗？我想参加淘汰赛。我对序言不是很了解，所以我不知道如何在序言中实现这一点。

tournament:- consult("E:\\teams.txt",team),start0.  
start0 :- shapka,one_screen2,findall(X,team(X,_,_),L1),findall(Sc1,team(_,Sc1,Playerscore1),findall(Sc2,Sc2,Playerscore2),findall(Sc3,Sc3,Playerscore3),findall(Sc4,Sc4,Playerscore4),findall(Sc5,Sc5,Playerscore5),scoreteam(Playerscore1,Playerscore2,Playerscore3,Playerscore4,Playerscore5,Teamrating),start1(L1,Teamrating,X1,X2),nl,menu2.

scoreteam([],[],[]).
scoreteam([P1|R1],[P2|R2],[P3|R3],[P4|R4],[P5|R5],[T|T1]) :- T =  P1 + P2 + P3 + P4 + P5,scoreteam(R1,R2,R3,R4,R5,T1),!.


start1([X],[R],X,R).
start1([H|T],[W|E],H,W):-start1(T,E,M,Z),M<>H,write(M," vs ",H),W<>Z,write(Z,W),!.
start1([_|T],[_|E],Z):-start1(T,Z).

只要我有这个。我从数据库中取出球队，将他们球员的分数相加，然后让他们相互对抗。 我的想法是这样的：比较积分的时候，抛硬币，积分多的队伍，一个硬币获胜的机会更大，胜利后，获胜的队伍必须与另一个获胜的队伍战斗，每胜利，球队获得积分。如何实施？有什么想法吗？