Zbirka zadataka iz Ekspertskih sistema

1.3. Primeri na Prolog-u i LISP-u 69
(define F ‘( (x 4) (y 5) (children (C D G) ) ))
(define G ‘( (x 3) (y 5) (children (C F H) ) ))
(define H ‘( (x 1) (y 6) (children (D G) ) ))
Funkcijama iz tačke a) potrebno je dodati definicije sledećih funkcija:
(define (path-length cities)
(cond ((null? (cdr cities)) 0)
(else (+ (distance (car cities) (cadr cities))
(path-length (cdr cities))))))
(define (distance n1 n2)
(sqrt (+ (square (- (get n1 ‘x) (get n2 ‘x)))
(square (- (get n1 ‘y) (get n2 ‘y))))))
(define (get l p)
(cadr (assoc p (eval l))))
(define (square x)
(* x x))
(define (expand path)
(delq! () (mapcar (lambda (child)
(if (member child (cdr path))
()
(cons child path)))
(get (car path) ‘children))))
Funkcija path-length računa dužinu parcijalne putanje kao zbir dužina svih puteva na
određenoj putanji. Dužina puteva između dva grada računa se funkcijom distance čija je
definicija ista kao u zadatku 26 s obzirom da su putevi pravolinijski.
Funkcija expand koja realizuje ekspanziju čvora i pomoćne funkcije get i square imaju
iste definicije kao u zadatku 26.
Diskusija
Pretraga za problem definisan u tački b) inicira se pozivom (branch-and-bound ‘A ‘H).
Program pri izvršavanju ispisuje:
RED ((A))
RED ((C A) (B A) (D A) (E A))
RED ((B A) (D A) (E A) (D C A) (F C A) (G C A))
RED ((D A) (E A) (D C A) (E B A) (F C A) (G C A))
RED ((E A) (D C A) (E B A) (C D A) (F D A) (F C A) (G C A)
(H D A))