Prolog Diners Problem Worksheet With Answers - Dr. Philip Cannata Page 2
ADVERTISEMENT
1
2
3
4
5Prolog Diners Problem – Partial Solution 1
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),
member(place(mrsBlake, MB), Places),
member(place(mrCrane, C), Places),
member(place(mrsCrane, MC), Places),
member(place(mrDavis, D), Places),
member(place(mrsDavis, MD), Places),
print_places(Places).
print_places([]).
print_places([A | B]) :- write(A), nl, print_places(B).
Dr. Philip Cannata
2
ADVERTISEMENT
0 votes
Related Articles
Related forms
Related Categories
Parent category: Education