Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- skip(Board, X, Y, Board) :-
- X = n,
- Y = n.
- makemoves(_,NewBoard,0,[],NewBoard).
- makemoves(Color, Board, N, [(Color, X, Y)|Moves], NewBoard) :-
- (
- legalmove(Color, Board, _, _) ->
- makemove(Color, Board, X, Y, BoardAfterMove)
- ;
- skip(X, Y, BoardAfterMove)
- ),
- flipToken(Color, OpponentColor),
- NewN is N-1,
- makemoves(OpponentColor, BoardAfterMove, NewN, Moves, NewBoard).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement