Zbirka zadataka iz Ekspertskih sistema

66 1. Pretraživanje
Nastavak pretrage ostvaruje se rekurzivnim pozivom procedure best1 sa ažuriranim redom
kao parametrom. Funkcija best1 poseduje takozvanu završnu (repnu) rekurziju koju Lisp
prevodilac pretvara u eksplicitnu iteraciju čime se dobija na efikasnosti pri izvršavanju.
b) Zadata mrežu puteva, koja predstavlja graf pretrage predstavljena je na isti način kao u
zadatku 26:
(define A ‘( (x 2) (y 0) (children (B C D E) ) ))
(define B ‘( (x 0) (y 2) (children (A E) ) ))
(define C ‘( (x 4) (y 1) (children (A D G F) ) ))
(define D ‘( (x 3) (y 3) (children (A C F H) ) ))
(define E ‘( (x 1) (y 4) (children (A B) ) ))
(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) ) ))
Procedurama iz tačke a) potrebno je dodati definicije funkcija expand, koja realizuje
ekspanziju čvora u stablu pretrage i distance koja računa vrednost heurističke funkcije za
zadati čvor, kao i pomoćne funkcije get i square. Ove funkcije definisane su na isti način
kao u zadatku 16.
(define (get l p)
(cadr (assoc p (eval l))))
(define (distance n1 n2)
(sqrt (+ (square (- (get n1 ‘x) (get n2 ‘x)))
(square (- (get n1 ‘y) (get n2 ‘y))))))
(define (square x)
(* x x))
(define (expand path)
(delq! () (mapcar (lambda (child)
(if (member child (cdr path))
()
(cons child path)))
(get (car path) ‘children))))
Diskusija
Pretraga za problem definisan u tački b) inicira se pozivom (best ‘A ‘H). Program pri
izvršavanju ispisuje:
RED ((A))