% Board = [[X, X, ...], ...] 8*8
player_most_sub1([(I, J, K)|Candidates], K1, Result1, Result2) :-
(K > K1
->
player_most_sub1(Candidates, K, [(I, J, K)], Result2)
;
(K == K1
->
player_most_sub1(Candidates, K1, [(I, J, K)|Result1], Result2)
;
player_most_sub1(Candidates, K1, Result1, Result2))).