Zbirka zadataka iz Ekspertskih sistema

60 1. Pretraživanje
1.3. Primeri na Prolog-u i LISP-u
Zadatak 26: Algoritam planinarenja na Lisp-u
a) Napisati Lisp proceduru za pretraživanje metodom planinarenja (engl. hill-climbing).
b) Primeniti proceduru iz tačke a) za nalaženje puta između tačaka A i H na putnoj mreži sa
slike 62, pri čemu heuristička funkcija predstavlja vazdušno rastojanje tekućeg i ciljnog
čvora:
h = ( x− x ) + ( y− y )
2 2
c c
gde su x i y koordinate tekućeg, a x c i y c koordinate ciljnog čvora.
y
6
5
4
3
2 • B
1
0
H
•
E
•
D
G
•
•
• F
1
A
•
2 3
• C
4 x
Slika 62
Rešenje
a) Program napisan na Scheme Lisp-u je zasnovan na algoritmu 3 iz dodatka 1:
(define (hill start finish)
(hill1 (list (list start)) finish))
(define (hill1 queue finish)
(print ‘Red)
(write queue)
(cond ((null? queue) (print ‘|Nema resenja|))
((equal? finish (caar queue))
(print ‘Resenje)
(write (reverse (car queue))))
(else (hill1 (append
(sort (expand (car queue))
(lambda (x y) (closerp x y finish)))
(cdr queue))