سلام دوستان من یه برنامه ساده دارم که به اسم حدس زدن کلمه است
این با visual prolog نوشته شده فکر کنم
کسی میتونه اینو با turbo prolog bnwysh اینم کدش
سلام دوستان من یه برنامه ساده دارم که به اسم حدس زدن کلمه است
این با visual prolog نوشته شده فکر کنم
کسی میتونه اینو با turbo prolog bnwysh اینم کدش
in_mind([s,a,l,a,m]).
start:- write('Guess first letter'),read(X),
in_mind([X|T]),write('OK. '),guess(T).
guess([]):- write('Congratulations! The word is '),in_mind(W),write(W),!.
guess(L):- repeat,write('Next letter'),read(X),
((L=[X|T1],write('OK. '),guess(T1));
(write('Fail. Try again!'),guess(L)))