Studiuję przykład z książki "Prolog przez przykład" (przez Helder Coelho i Jose Cotta).

Write a program for designing an architectural unit
obeying the following specifications:

+ Two rectangular rooms
+ Each room has a window and interior door
+ Rooms are connected by interior door
+ One room also has an exterior door
+ A wall can have only one door or window
+ No window can face north
+ Windows cannot be on opposite sides of the unit

enter image description here

Jest rozwiązanie, ale nie działa w Swi-Prolog, nawet nie sporządza.

Musiałem zmienić rozwiązanie z książki: Użyj "DIF (X, Y)" zamiast "x = = Y".

Czy ktoś może wyjaśnić: Dlaczego oryginalne rozwiązanie nie działa?

Oto kod:

plan(FD,D1,W1,D2,W2) :-
  frontroom(FD,D1,W1),
  opposite(D1,D2),
  room(D2,W2),
  notopposite(W1,W2).

frontroom(FD,D,W) :-
  room(D,W),
  direction(FD),
  dif(FD,D),     % FD =\= D,   % <- original was commented
  dif(FD,W).     % FD =\= W.   % <- original was commented

room(D,W) :-
  direction(D),
  direction(W),
  dif(D,W),      % D =\= W,     % <- original was commented
  dif(W,north).  % W =\= north. % <- original was commented

direction(north).
direction(south).
direction(east).
direction(west).

opposite(north,south).
opposite(south,north).
opposite(east,west).
opposite(west,east).

notopposite(D1,D2) :-
  opposite(D1,D3),
  dif(D2,D3).  % D2 =\= D3. % <- original was commented

Mogę dokonać zapytania i uzyskać odpowiedź:

?- plan(west,D1,W1,D2,W2).
D1 = east,
W1 = south,
D2 = west,
W2 = south

Próbuję śledzić oryginalne rozwiązanie (z D2 = = D3 zamiast DIF (D2, D3)) i zdobądź to:

[trace]  ?- plan(west,D1,W1,D2,W2).
   Call: (8) plan(west, _9632, _9634, _9636, _9638) ? creep
   Call: (9) frontroom(west, _9632, _9634) ? creep
   Call: (10) room(_9632, _9634) ? creep
   Call: (11) direction(_9632) ? creep
   Exit: (11) direction(north) ? creep
   Call: (11) direction(_9634) ? creep
   Exit: (11) direction(north) ? creep
   Call: (11) north=\=north ? creep
ERROR: Arithmetic: `north/0' is not a function

Dlaczego nie mogę używać "="?

2
gorshkov 22 marzec 2020, 17:53

1 odpowiedź

Najlepsza odpowiedź

Powinien być raczej \== niż nieprawidłowy {x1}}. Nie wiem, że =\= kiedykolwiek oznaczało coś innego niż nierówność arytmetyczna.

III wydanie 1982 roku jest Online i =\= Nawet udokumentowany w tym samym dokumencie, co jest częścią Decsystemu 10 Prolog w 1978 r. Więc sprzeczność jest obecna nawet w tej wcześniejszej wersji wspomnianej książki.

Do tej pory tekst. Ale jesteś absolutnie właściwy, że dif/2 jest lepszy niż (\==)/2. Zobacz To dla więcej.

2
false 22 marzec 2020, 20:38