このディレクトリの索引
#  
#  既に整列されている成績 [氏名,成績1,成績2, ... 成績n]の成績の合計点順の
#  順位を振る非決定性述語
#  

順位付け(_整列した組ならび,_順位,_組) :-
        順位付け(_整列した組ならび,[],[],_順位,_組).

順位付け([_組|_],Ln,_,_順位,_組) :-
        length([_|Ln],_順位).
順位付け([_組_1,_組_2|R],Ln,Ln_2,_順位,_組) :-
        第二項以降の合計点が同じ(_組_1,_組_2),!,
        順位付け([_組_2|R],Ln,[_|Ln_2],_順位,_組).
順位付け([_|R],_,Ln_2,_順位,_組) :-
        順位付け(R,[_|Ln_2],[_|Ln_2],_順位,_組).

第二項以降の合計点が同じ([_|R1],[_|R2]) :-
        sum_list(R1,S),
        sum_list(R2,S).