Tests Pec2, Common Lisp

Language: Layout:

; Pruebas Heurística
(defun heuristica (estado)
    (cond ((equal estado 'A) 80)
          ((equal estado 'B) 90)
          ((equal estado 'C) 60)
          ((equal estado 'D) 65)
          ((equal estado 'E) 70)
          ((equal estado 'Z)  0)
          (t 50))
)

(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 '"Nodos F, G, H")
(print (heuristica 'F))
(print (heuristica 'G))
(print (heuristica 'H))

; Pruebas función de coste

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

(print '"Funcion de coste")
(print (coste 'A 'B))

[ + ] Show input
Absolute running time: 0.1 sec, cpu time: 0.05 sec, memory peak: 5 Mb, absolute service time: 0,1 sec