Mastermind: Difference between revisions

Content added Content deleted
(Added Prolog implementation)
Line 2,429: Line 2,429:
format('Guess #~p of #~p: ', [ReportedGuess, MaxGuesses]),
format('Guess #~p of #~p: ', [ReportedGuess, MaxGuesses]),
get_player_guess(Length, Colours, Guess),
get_player_guess(Length, Colours, Guess),
evaluate_and_print_result(BoardData, PrevGuesses, ReportedGuess, Guess).
!,
NextGuessNum is GuessNum + 1,
evaluate_and_print_result(BoardData, PrevGuesses, NextGuessNum, Guess).


evaluate_and_print_result(board(Board,_,_,_), _, _,Board) :-
evaluate_and_print_result(board(Board,_,_,_), _, _,Board) :-
Line 2,502: Line 2,500:
1: a b c d : X O O -
1: a b c d : X O O -
2: a c b e : X O - -
2: a c b e : X O - -
Guess #3 of #8: fgja
Guess #3 of #8: fgab
fgab
1: a b c d : X O O -
1: a b c d : X O O -
2: a c b e : X O - -
2: a c b e : X O - -
Line 2,537: Line 2,534:
true.
true.
</pre>
</pre>



=={{header|Python}}==
=={{header|Python}}==