~herlock_sholmes/PensamientoComputacional

b911fbf88147a773456c0cfdd657c832bb780e00 — Herlock Sholmes 1 year, 5 months ago 5f27201
00013: se actualiza archivo la-casa-del-mago.lisp
1 files changed, 8 insertions(+), 8 deletions(-)

M EjemplosLisp/CommonLisp/la-casa-del-mago.lisp
M EjemplosLisp/CommonLisp/la-casa-del-mago.lisp => EjemplosLisp/CommonLisp/la-casa-del-mago.lisp +8 -8
@@ 27,7 27,7 @@
;; Definiendo la función que permite conocer los caminos.

(defun describir-camino (arista)
  `(hay una ,(caddr arista) te conduce ,(cadr arista) de aquí.))
  `(hay una ,(caddr arista) que te conduce ,(cadr arista) de aquí.))

;; Definiendo una función que es capaz de describir más de un camino



@@ 40,7 40,7 @@

;; Definiendo la ubicación de los objetos

(defparameter *ubicación-objetos* '((cerveza segundo-piso)
(defparameter *ubicacion-objetos* '((cerveza segundo-piso)
                                    (rana living)
                                    (escoba living)
                                    (cadena jardín)))


@@ 54,18 54,18 @@

;; Describiendo los objetos visibles

(defun descrbir-objetos (lug objs lug-objs)
(defun describir-objetos (lug objs lug-objs)
  (labels ((describir-obj (obj)
             `(puedes ver ,obj en el piso.)))
             `(puedes ver una ,obj en el piso.)))
    (apply #'append (mapcar #'describir-obj (objeto-en lug objs lug-objs)))))

;; Determinar el lugar inicial de la jugadora

(defparameter *ubicación* 'living)
(defparameter *ubicacion* 'living)

;; Definir una función para mirar en la ubicación

(defun mirar ()
  (append (describir-lugar *ubicación* *nodos*)
          (describir-caminos *ubicación* *arista*)
          (describir-objetos *ubicación* *objetos* *ubicación-objetos*)))
  (append (describir-lugar *ubicacion* *nodos*)
          (describir-caminos *ubicacion* *arista*)
          (describir-objetos *ubicacion* *objetos* *ubicacion-objetos*)))