Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Hangman
play(Word,Guessed):- subtract(Word,Guessed,X), forall(member(M,X),M=' '), writeln('Winner!'), !. play(W,X):- subtract(X,W,Y), length(Y,L),L>=7, write('Lost. Word was: '), writeln(W), !. 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,' ',p,o,o,p],[]).
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Base conocimiento SUPER QUERYS
List intro
Base de Conocimiento - Arreglos
Arguello Tovar Sheila Arreglos
Sánchez López Fernando Gabriel - JSON arrays
Arreglo
tarea 4nm70 procesar arreglos 4 marzo
Árbol JSON en PROLOG
Dann, examen parte 1
Einstein Raetsel
Please log in to post a comment.