Prolog Diners Problem Worksheet With Answers - Dr. Philip Cannata Page 3
ADVERTISEMENT
1
2
3
4
5Prolog Diners Problem – Partial Solution 2
places([place(_,0), place(_,1), place(_,2), place(_,3), place(_,4), place(_,5), place(_,6), place(_,7)]).
dinner(Y) :- places(Places),
member(place(mrAstor, A), Places),
member(place(mrsAstor, MA), Places),
member(place(mrBlake, B), Places), B is ((MA + 1) mod 8),
member(place(mrsBlake, MB), Places),
member(place(mrCrane, C), Places),
member(place(mrsCrane, MC), Places), MC is ((B + 4) mod 8),
member(place(mrDavis, D), Places),
member(place(mrsDavis, MD), Places), MD is 0,
print_places(Places).
print_places([]).
print_places([A | B]) :- write(A), nl, print_places(B).
Dr. Philip Cannata
3
ADVERTISEMENT
0 votes
Related Articles
Related forms
Related Categories
Parent category: Education