刽子手游戏在SWI序言（Enchance） [英] Hangman Game in SWI Prolog (Enchance)
问题描述
可能重复：
刽子手游戏在SWI Prolog的
我想enchance一个简单的刽子手游戏SWI Prolog的有以下几点：
1）的按紧跟的错误已经猜到了，到目前为止的信件。如果用户猜测已经猜错了一封信，该方案应该说你猜对了！和公正的继续游戏而不会增加计数器。
2）的最后，添加一个计数器计数不正确猜测的数目和退出比赛的时候达到一定的数量。该计划应该告诉他们失去用户，显示什么这句话真的是和终止。重复猜测应该不能算作是错误的。
如何把这些predicates在一起，使我的编程'运行了上述enchancements？
1）的
alreadyGuessed（猜，答案codeS）： -
memberchk（猜，答案codeS）。
2）的
processGuess（AnsList，BlankList，_，CountFailed）： -
（CountFailed == 5
- ＆GT;格式（'对不起，比赛结束了。你没\'吨猜（〜S）〜N'，[AnsList]）
;写（都能跟得上！），
CountFailed1被CountFailed + 1，
getGuess（AnsList，BlankList，CountFailed1）
）。
我试图做的是：
扩展predicate getGuess（AnsList，BlankList，CountFailed）
我为你提供code，并与之前我的变化正在运行的版本注释。的
编辑：程序现在运行，直到你做5失误。运行它像？ - 刽子手（0）
现在我只需要不计已使用，只要错误答案的字母和上面列出显示相应的信息。我该怎么用书面方式做一个更多predicate processGuess ？
％这一顶级predicate运行游戏。它打印
％欢迎信息，挑选一个短语，并调用getGuess。
％回答=回答
％AnsList = AnswerList
刽子手（CountFailed）： -
getPhrase（ANS），
！，
写（欢迎来到刽子手。），
NL，
名字（ANS，AnsList）
makeBlanks（AnsList，BlankList）
getGuess（AnsList，BlankList，CountFailed）。
％随机返回的可能性列表中的短语。
getPhrase（ANS）： -
短语（L）
长度（L，X）
R是随机的（X）
N为R + 1，
getNth（L，N，ANS）。
％可能短语猜测。
phrases(['a_picture_is_worth_a_thousand_words','one_for_the_money','dead_or_alive','computer_science']).
％要求一个字母猜测用户。开始于写
％目前显示那句用空格，然后请求猜测和
％的呼叫处理的猜测。
getGuess（AnsList，BlankList，CountFailed）： -
名字（BlankName，BlankList）
写（BlankName）
NL，
写（请输入你的猜测，随后期和回报。）
NL，
阅读（猜），
！，
名字（猜，[GuessName]），
processGuess（AnsList，BlankList，GuessName，CountFailed）。
％工艺猜测利用了codeS重新presenting的回答中，codeS重新presenting当前列表清单
％显示的短语在它的空白，而这仅仅是猜测信的code。如果猜测
％是正确的，叫替身把信在显示短语，并检查了胜利。否则，只
％从用户那里得到另一种猜测。
processGuess（AnsList，BlankList，GuessName，CountFailed）： -
成员（GuessName，AnsList）
！，
写（正确！）
NL，
替补（AnsList，BlankList，GuessName，NewBlanks）
checkWin（AnsList，NewBlanks，CountFailed）。
processGuess（AnsList，BlankList，_，CountFailed）： -
（CountFailed == 5
- ＆GT;格式（'对不起，比赛结束了。你没\'吨猜（〜S）〜N'，[AnsList]）
;写（都能跟得上！），
NL，
CountFailed1被CountFailed + 1，
getGuess（AnsList，BlankList，CountFailed1）
）。
％检查，看看是否短语猜测。如果是这样，写上你赢了，如果没有，回去拿另一种猜测。
checkWin（AnsList，BlankList，CountFailed）： -
名字（ANS，AnsList）
名字（BlankName，BlankList）
BlankName =答案，
！，
写（你赢了！）。
checkWin（AnsList，BlankList，CountFailed）： -
getGuess（AnsList，BlankList，CountFailed）。
％getNth（L，N，E）应该是真实的，当E是列表L n的第N个元素总会
％至少为1。
getNth（[H | T]，1，H）。
getNth（[H | T]，N，E）： -
N1是N-1，
getNth（T，N1，E1），
E = E1。
％makeBlanks（AnsList，BlankList）应该采取的答案短语，这是一个列表
％字符codeS的重新present答案词组，并返回一个列表
％，所有codeS，但'_'变成了code为'*'。下划线
％需要保持以显示其中的字的开始和结束。请注意
％这个predicate输入和输出列表是字符codeS名单。
％可以使用这样的查询测试code：
％testMakeBlanks： - 名（csc_is_awesome，列表），makeBlanks（列表，BlankList），名（Towrite，BlankList），写（Towrite）。
makeBlanks（ANS codeS，空白codeS）： -
MAPLIST（answer_blank，答案codeS，空白codeS）。
answer_blank（ANS，空白）： -
答== 0'_ - ＆GT;空白=答;空白= 0'*。
％代用品（AnsList，BlankList，GuessName，NewBlanks）获取字符code列出AnsList和BlankList，
％和GuessName，这是字符code的猜测字母。该NewBlanks应该再是一个
％字符code清单，将所有的猜测到显示字，并保持*的和_的其他方式。
％例如，如果答案是csc_is_awesome'和显示是'C * C _ ** _ *******'和猜测是的，则
％新的显示应该是csc_ * S _ ***县***。
％可以使用这样的查询测试predicate：
％testSubstitute： - 名（csc_is_awesome'，AnsList），名（'C * C _ ** _ *******，BlankList），名（S，[GuessName]），替代品（AnsList，BlankList ，GuessName，NewBlanks）
％名称（Towrite，NewBlanks），写（Towrite）。
％此外，由于predicate不直接与字符codeS处理，这也应该工作：
％替代（['C'，'S'，'C']，['C'，'*'，'C']，'S'，L）。 L时，应['C'，'S'，'C']。
替补（ANS codeS，空白codeS，GuessName，NewBlanks）： -
MAPLIST（place_guess（GuessName），答案codeS，空白codeS，NewBlanks）。
place_guess（猜，答案，空白，显示）： -
猜猜==答案 - ＆GT;显示=答;显示=空白。
插入前此规则processGuess（AnsList，BlankList，_，CountFailed）： -
processGuess（AnsList，BlankList，GUESS，CountFailed）： -
memberchk（猜，BlankList）
写（你猜对了！'），NL，
！，getGuess（AnsList，BlankList，CountFailed）。
我把内嵌从 alreadyGuessed
修改以改变CountFailed到FailedList：
processGuess（AnsList，BlankList，GUESS，FailedList）： -
（长度（FailedList，5）
- ＆GT; ...信号博弈故障并停止对...
; getGuess（AnsList，BlankList，[猜猜| FailedList]）
）
Possible Duplicate:
Hangman Game in SWI Prolog
I'm trying to enchance a simple hangman game in SWI Prolog with the following:
1) By keeping up with the WRONG letters that have been guessed so far. If the user guesses a letter that has already been guessed wrong, the program should say 'You guessed that!' and just continue the game without increasing the counter.
2) Lastly, add a counter that counts the number of incorrect guesses and quits the game when a certain number is reached. The program should tell the user that they lose, display what the phrase really was, and terminate. Duplicate guesses should not be counted as wrong.
How can i put these predicates together so that my progam runs for the above enchancements?
1)
alreadyGuessed(Guess, AnsCodes) :-
memberchk(Guess, AnsCodes).
2)
processGuess(AnsList, BlankList, _, CountFailed) :-
( CountFailed == 5
-> format('Sorry, game over. You didn\'t guess (~s)~n', [AnsList])
; write('Nope!'),
CountFailed1 is CountFailed + 1,
getGuess(AnsList, BlankList, CountFailed1)
).
What i tried to do is:
Extend the predicate getGuess(AnsList, BlankList, CountFailed)
I provide you with the code and comments with the running version before my changes.
Edit: Program now runs until you do 5 mistakes. Run it like ?- hangman(0).
Now i only need to NOT count the letters that have been used so far as wrong answers and display the appropriate message as listed above. Am i gonna do it by writting one more predicate processGuess?
% This top-level predicate runs the game. It prints a
% welcome message, picks a phrase, and calls getGuess.
% Ans = Answer
% AnsList = AnswerList
hangman(CountFailed):-
getPhrase(Ans),
!,
write('Welcome to hangman.'),
nl,
name(Ans,AnsList),
makeBlanks(AnsList, BlankList),
getGuess(AnsList,BlankList, CountFailed).
% Randomly returns a phrase from the list of possibilities.
getPhrase(Ans):-
phrases(L),
length(L, X),
R is random(X),
N is R+1,
getNth(L, N, Ans).
% Possible phrases to guess.
phrases(['a_picture_is_worth_a_thousand_words','one_for_the_money','dead_or_alive','computer_science']).
% Asks the user for a letter guess. Starts by writing the
% current "display phrase" with blanks, then asks for a guess and
% calls process on the guess.
getGuess(AnsList, BlankList, CountFailed):-
name(BlankName, BlankList),
write(BlankName),
nl,
write('Enter your guess, followed by a period and return.'),
nl,
read(Guess),
!,
name(Guess, [GuessName]),
processGuess(AnsList,BlankList,GuessName, CountFailed).
% Process guess takes a list of codes representing the answer, a list of codes representing the current
% "display phrase" with blanks in it, and the code of the letter that was just guessed. If the guess
% was right, call substitute to put the letter in the display phrase and check for a win. Otherwise, just
% get another guess from the user.
processGuess(AnsList,BlankList,GuessName, CountFailed):-
member(GuessName,AnsList),
!,
write('Correct!'),
nl,
substitute(AnsList, BlankList, GuessName, NewBlanks),
checkWin(AnsList,NewBlanks, CountFailed).
processGuess(AnsList, BlankList, _, CountFailed) :-
( CountFailed == 5
-> format('Sorry, game over. You didn\'t guess (~s)~n', [AnsList])
; write('Nope!'),
nl,
CountFailed1 is CountFailed + 1,
getGuess(AnsList, BlankList, CountFailed1)
).
% Check to see if the phrase is guessed. If so, write 'You win' and if not, go back and get another guess.
checkWin(AnsList, BlankList, CountFailed):-
name(Ans, AnsList),
name(BlankName, BlankList),
BlankName = Ans,
!,
write('You win!').
checkWin(AnsList, BlankList, CountFailed):-
getGuess(AnsList, BlankList, CountFailed).
% getNth(L,N,E) should be true when E is the Nth element of the list L. N will always
% be at least 1.
getNth([H|T],1,H).
getNth([H|T],N,E):-
N1 is N-1,
getNth(T,N1,E1),
E=E1.
% makeBlanks(AnsList, BlankList) should take an answer phrase, which is a list
% of character codes that represent the answer phrase, and return a list
% where all codes but the '_' turn into the code for '*'. The underscores
% need to remain to show where the words start and end. Please note that
% both input and output lists for this predicate are lists of character codes.
% You can test your code with a query like this:
% testMakeBlanks:- name('csc_is_awesome', List), makeBlanks(List, BlankList), name(Towrite, BlankList), write(Towrite).
makeBlanks(AnsCodes, BlankCodes) :-
maplist(answer_blank, AnsCodes, BlankCodes).
answer_blank(Ans, Blank) :-
Ans == 0'_ -> Blank = Ans ; Blank = 0'* .
% substitute(AnsList, BlankList, GuessName, NewBlanks) Takes character code lists AnsList and BlankList,
% and GuessName, which is the character code for the guessed letter. The NewBlanks should again be a
% character code list, which puts all the guesses into the display word and keeps the *'s and _'s otherwise.
% For example, if the answer is 'csc_is_awesome' and the display is 'c*c_**_*******' and the guess is 's', the
% new display should be 'csc_*s_***s***'.
% You can test your predicate with a query like this:
% testSubstitute:- name('csc_is_awesome', AnsList), name('c*c_**_*******', BlankList), name('s',[GuessName]), substitute(AnsList, BlankList, GuessName, NewBlanks),
% name(Towrite, NewBlanks), write(Towrite).
% Also, since the predicate doesn't deal directly with character codes, this should also work:
% substitute(['c','s','c'],['c','*','c'],'s',L). L should be ['c','s','c'].
substitute(AnsCodes, BlankCodes, GuessName, NewBlanks) :-
maplist(place_guess(GuessName), AnsCodes, BlankCodes, NewBlanks).
place_guess(Guess, Ans, Blank, Display) :-
Guess == Ans -> Display = Ans ; Display = Blank.
insert this rule before processGuess(AnsList, BlankList, _, CountFailed) :-
processGuess(AnsList, BlankList, Guess, CountFailed):-
memberchk(Guess, BlankList),
write('You guessed that!'), nl,
!, getGuess(AnsList, BlankList, CountFailed).
I placed inline the only call from alreadyGuessed
edit to change CountFailed to a FailedList:
processGuess(AnsList, BlankList, Guess, FailedList):-
( length(FailedList, 5)
-> ... signal game failure and stop ...
; getGuess(AnsList, BlankList, [Guess|FailedList])
)
这篇关于刽子手游戏在SWI序言（Enchance）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
