Implementación en CLIPS de un Sistema Basado en Reglas para el Juego del 8-Puzzle
Clasificado en Informática
Escrito el en
español con un tamaño de 3,65 KB
Daniel Rueda Macías (559207)
18/11/2016
MÓDULO MAIN Y HEURÍSTICA
(defmodule MAIN (export deftemplate nodo)
(export deffunction heuristica))
(deftemplate MAIN::nodo
; Definimos la estructura que tendrá un nodo
(multislot estado)
(multislot camino)
(slot heuristica)
(slot coste)
(slot clase (default abierto)))
(defglobal MAIN
; Definimos estado inicial y final
?*estado-inicial* = (create$ B B B H V V V)
?*estado-final* = (create$ V V V H B B B))
(deffunction MAIN::heuristica ($?estado)
(bind ?res 0)
(loop-for-count (?i 1 7)
; Si estado inicial de (i) no es igual a estado final de (i) entonces
; se suma uno al resultado. Número de fichas descolocadas
(if (neq (nth ?i ?estado)
; NTH accede a... Continuar leyendo "Implementación en CLIPS de un Sistema Basado en Reglas para el Juego del 8-Puzzle" »
catalán con un tamaño de 2,68 KB
vasco con un tamaño de 5,92 KB