Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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.
EMPRESA - FINAL
intento1
JSON_20-08
Superquery's
segundo ejercisio 8 feb
ejemplo if anidado
Query Espinoza Francisco Ing del conocimiento
Luis Fernando Jiménez_Ejercicio1_Examen_IngenieriaDeConocimiento_3NM71
ejercicio 8 feb
Codificacion y despliegue de redes bayesianas-Guerrero Hernandez Angel
Please log in to post a comment.