20 lines
557 B
Prolog
20 lines
557 B
Prolog
nim :- next_turn(12), !.
|
|
|
|
next_turn(N) :-
|
|
% Player Turn
|
|
format('How many dots would you like to take? '),
|
|
read_line_to_codes(user_input, Line),
|
|
number_codes(PlayerGuess, Line),
|
|
member(PlayerGuess,[1,2,3]),
|
|
N1 is N - PlayerGuess,
|
|
format('You take ~d dots~n~d dots remaining.~n~n', [PlayerGuess, N1]),
|
|
|
|
% Computer Turn
|
|
CompGuess is 4 - PlayerGuess,
|
|
N2 is N1 - CompGuess,
|
|
format('Computer takes ~d dots~n~d dots remaining.~n~n', [CompGuess, N2]),
|
|
(
|
|
N2 = 0
|
|
-> format('Computer wins!')
|
|
; next_turn(N2)
|
|
).
|