Pec2 tests, Common Lisp

Language: Layout:

; Pruebas Heurística

(setq bad_value 9999)

(defun heuristica (estado)
    (cond ((equal estado 'A) 80)
          ((equal estado 'B) 90)
          ((equal estado 'C) 60)
          ((equal estado 'D) 65)
          ((equal estado 'E) 70)
		  ((or (equal estado 'F) (equal estado 'G))50)
		  ((equal estado 'H) 50)
          ((equal estado 'Z)  0)          
          (t bad_value))
)

(print '"Llamada a función heurística")
(print (heuristica 'A))
(print (heuristica 'B))
(print (heuristica 'C))
(print (heuristica 'D))
(print (heuristica 'E))
(print (heuristica 'F))
(print (heuristica 'G))
(print (heuristica 'H))
(print (heuristica 'Z))
(print (heuristica 'y))

(print '"Nodos F, G, H")
(print (heuristica 'F))
(print (heuristica 'G))
(print (heuristica 'H))

; Pruebas función de coste

(defun coste (estado1 estado2)
    (cond 
        ((and (equal estado1 'A) (equal estado2 'B)) 4)
        ((and (equal estado1 'A) (or (equal estado2 'C) (equal estado2 'D)) ) 10)
        ((and (equal estado1 'A) (equal estado2 'E)) 15)
        
        ((and (equal estado1 'B) (equal estado2 'F)) 5)
        ((and (equal estado1 'C) (equal estado2 'F)) 20)
        ((and (equal estado1 'D) (equal estado2 'F)) 10)
        ((and (equal estado1 'E) (equal estado2 'F)) 3)
        ((and (equal estado1 'E) (equal estado2 'H)) 30)
        
        ((and (equal estado1 'F) (equal estado2 'G)) 35)
        ((and (equal estado1 'F) (equal estado2 'H)) 30)
        
        ((and (equal estado1 'H) (equal estado2 'Z)) 2)
        (t bad_value)
    )
)

(print '"Funcion de coste")
(print (coste 'A 'B))
(print (coste 'A 'C))
(print (coste 'A 'D))
(print (coste 'A 'E))
(print (coste 'B 'F))
(print (coste 'C 'F))
(print (coste 'D 'F))
(print (coste 'E 'F))
(print (coste 'E 'H))
(print (coste 'F 'G))
(print (coste 'F 'H))
(print (coste 'H 'Z))

(print (coste 'A 'Z))

[ + ] Show input
Absolute running time: 0.11 sec, cpu time: 0.06 sec, memory peak: 5 Mb, absolute service time: 0,12 sec