/**********************************************************/
/* */
/* Universidad de Alicante */
/* */
/* LOGICA DE PRIMER ORDEN */
/* Prolog */
/* */
/* */
/* S.O. : MS-DOS (Windows) */
/* Interprete : SWI-Prolog */
/* Fichero : EJ07.PL */
/* */
/**********************************************************/
/*-- PREDICADOS DE ENTRADA Y SALIDA --*/
/* ibl(L) <- imprime la lista L de forma bonita, es decir
saca por pantalla los elementos de la lista
separados por un espacio y terminado en salto
de linea */
ibl([]) :- nl.
ibl([X|Y]) :- write(X),
tab(1),
ibl(Y).
/* escribe_cadena(L) <- escribe en pantalla la lista L de
caracteres */
escribe_cadena([]).
escribe_cadena([X|Y]) :- put(X),
escribe_cadena(Y).
/* PREGUNTAS :
?- write(8+5*6),nl,display(8+5*6).
?- write(8*5+6),nl,display(8*5+6).
?- X=[esto,es,una,lista],write(L),nl,display(L),nl,ibl(L).
?- escribe_cadena([80,114,111,108,111,103]).
?- put(80),put(114),put(111),put(108),put(111),put(103).
*/