Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Hangman
play(Word,Guessed):- subtract( play(Word, Guessed):- forall(member(W,Word), (once(((W=' ';member(W,Guessed)),O=W);O='_'),write(O))), nl, read(G), play(Word,[G|Guessed]). :- play([e,l,e,p,h,a,n,t],[]).
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
ING. CONOCIMIENTO
...
Pancake
Base de Conocimiento - Arreglos
Arreglos_Segura_Sanchez
Agrupador Raz
Base de Conocimiento PROLOG Arreglos de objetos y arreglos
superqueries_Steve
SuperQuery
Salgado Sanchez Ivan_Examen2
Please log in to post a comment.