# [Tutorial] Prolog Programming

Prolog Tutorial for EECS 492, WN 2021.

### Facts, Rules, and Queries

Prolog programming is all about writing knowledge bases (KB), collection of facts and rules. The basic formatting is as follows:

1. Period . at the end
2. constants: lower-case
3. VARIABLES: upper-case

#### Facts

The basic format for a fact is predicate(arguments).

Example 1: Use the following predicates to describe the facts:

eecs(X): X is an EECS course.
math(X): X is an MATH course.


To describe eecs280, eecs281, eecs445, eecs492 and math214, we could write:

eecs(eecs280).
eecs(eecs281).
eecs(eecs245).
eecs(eecs292).
math(math214).


The predicate may take more than 1 argument.

Example 2: Use the following predicates to describe the facts:

prerequisite(X, Y): X is a prerequisite of Y.
taken(X, Y): X has taken course Y.
teach(X, Y): X teaches course Y.


Given that martin has taken eecs445, and teaches eecs280 and eecs492, we could write:

prerequisite(eecs280, eecs281).
prerequisite(eecs203, eecs281).
prerequisite(eecs281, eecs492).
prerequisite(eecs281, eecs445).
prerequisite(math214, eecs445).

teach(martin, eecs492).
teach(martin, eecs280).
taken(martin, eecs445).


#### Rules

The basic format for a fact is predicate(arguments) :- predicate(arguments). The :- should be read as “if”, or “is implied by”.

Example 1: Use the following predicates to describe the facts:

teach(X, Y) => taken(X, Y): If X teaches Y, X must have taken Y.


To describe this rule, we could write:

taken(X, Y) :- teach(X, Y).


#### Queries

Store your KB in a .pl file, open it in the SWI-prolog, you should see something similar to this:

Welcome to SWI-Prolog (threaded, 64 bits, version 8.1.22-114-g7e1bb6838)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.

For built-in help, use ?- help(Topic). or ?- apropos(Word).

?-


To question the KB if a fact is true, one make a query after ?-.

Example 1: Is math214 an eecs course?

?- eecs(math214).
false.


Example 2: Is math214 a prerequisite of eecs492 ?

?- prerequisite(math214, eecs492).
false.


Example 3: Have martin taken eecs492 ?

?- taken(martin, eecs492).
true.


Note that although taken(martin, eecs492) is not directly stated in the KB, prolog makes the logical inference from the fact that teach(martin, eecs492) and taken(X, Y) :- teach(X, Y). In other words, since Martin is teaching EECS 492, he must have taken this course earlier.

Example 4: List all courses that martin has taken?

?- taken(martin, X), print(X), nl, fail.
eecs445
eecs492
eecs280
false.


#### Recursion

You may have noticed that in the earlier example, the logic is not complete. If one has taken one course, he/she must have taken the prerequisites.

One may write a new rule like:

taken(X, Y) :- taken(X, Z), prerequisite(Y, Z).


It seems fine when you make the query:

?- taken(martin, eecs281).
true .


However, the problem arises when you try to check all course that Martin has taken:

?- taken(martin, X), print(X), nl, fail.
eecs445
eecs492
eecs280
eecs281
math214
eecs281
eecs280
eecs203
eecs280
eecs203



Oops! Looks like your program gets stuck in an infinite loop! Prolog applies backward chaining and depth-first search to do logic inference, and this will lead to an infinite search tree. Check the Recursion section for details.

To stop Prolog from an infinite loop, press ctrl + C, and press A to abort.

?- taken(martin, X), print(X), nl, fail.
eecs445
eecs492
eecs280
eecs281
math214
eecs281
eecs280
eecs203
eecs280
eecs203
Action (h for help) ? abort
% Execution Aborted


A better way is to avoid recursion in Prolog. Use a new predicate instead.

know(X, Y) :- taken(X, Y).
know(X, Y) :- taken(X, Z), prerequisite(Y, Z).


And the query works fine here:

?- know(martin, X), print(X), nl, fail.
eecs281
math214
eecs281
eecs445
eecs492
eecs280
false.


### Definite Clause Grammars

#### Context Free Grammars

CFG is a finite collection of rules indicating that…

• Which sentences are grammatical/syntactically correct;
• What their grammatical structure actually is.

CFG captures constituents and ordering.

• Need something else for grammatical relations and dependency relations.

CFG consists of…

• Set of terminals (words);
• Set of non-terminal (the constituent of language);
• e.g., s , np , vp , det , n , v.
• Sets of rules of the form A -> $\alpha$, where $\alpha$ is a string of zero or more terminals and non-terminals.

An exemplar CFG is like:

s   ->  np  vp
np  ->  n
np  ->  det  n
vp  ->  v
vp  ->  v  np

det ->  a
det ->  the
n   ->  student
n   ->  prolog
v   ->  likes
v   ->  hates


Consider a sentence (a string of words): the student likes prolog. The question is, is this grammatical according to our little grammar? And if it is, what structure does it have?

A derivation is a sequence of rules applied to a string that accounts for that string:

• Covers all the elements in the string;

• Covers only the elements in the string.

It can be represented in:

[s [np [det the] [n student]] [vp [v likes] [np [n prolog]]]]

In tree form, it looks like:

             s
________|________
np               vp
___|___         ____|____
det    n         v       np
|      |         |		  |
the student     likes     n
|
prolog


#### Definite Clause Grammars

DCG is a notation for writing grammar that hides the underlying difference list variables.

Translate the previous CFG into DCG is straightforward:

s   --> np, vp.
np  -->  n.
np  -->  det, n.
vp  -->  v.
vp  -->  v, np.

det -->  [a].
det -->  [the].
n   -->  [student].
n   -->  [prolog].
v   -->  [likes].
v   -->  [hates].


Example 1: find out whether the student likes prolog is a sentence.

?- s([the, student, likes, prolog],[]).
true .


Example 2: find out if the student is a noun phrase (np).

?- np([the, student],[]).
true.


Example 3: generate all the sentences in the grammar.

?- s(X,[]), print(X), nl, fail.
[student,likes]
[student,hates]
[student,likes,student]
[student,likes,prolog]
...
[the,prolog,hates,the,student]
[the,prolog,hates,the,prolog]
false.


### FAQ

#### General

How to locate the *.pl file in prolog?

Suppose you have a directory eecs492/prolog and all your prolog files are under this directory. You can go to this directory first, and then start Prolog /user/eecs492/xsb. Once you are in the Prolog environment, you can load the file by typing [filename].

The reason is that you have variables defined in your predicates that have not been referenced or used in the body. You can replace those variables with an anonymous variable _ (underscore).

For example, if you define the following “member” predicate, “Y” is not used, so you will have a “singleton” warning.

member(X,[X|Y].
member(X,[Y|T]) :- member(X,T)


If you define it as the following, you should be fine.

member(X,[X|]).
member(X,[|T]) :- member(X,T).


#### Family Tree Problem

I have a problem with duplicate answers, is that ok?

The reason for this to happen is that you have multiple facts/rules that are matched by the prolog interpreter. Since the tutorial didn’t mention how to prevent that, it is ok for your program to produce duplicate results. (no points will be taken from you in this regard). One way to fix it is to use the built-in “setoff”.

So you can make the following changes to avoid duplicates.

brother0(X,Y) :- ....
brother(X,Y) :- setof(_, brother0(X,Y), _).


I’m having trouble figuring out how to prevent a “reflexive” type of relationship from happening. For example, Harry should not be Harry’s brother and the same for his sister.

To avoid this, you will need to specify that X and Y cannot be the same as in the following:

sister(X, Y) :- child(X, Z), child(Y, Z), female(X), X == Y.


#### Block World Problem

For a “taken” response should “on” be changed to “off”? For example, my current code returns the following. Should it respond with “I have taken the cone off the square.”?

?- command([take,the,cone,on,the,square]).
I have taken the cone on the square.
yes


No you don’t need to change “on” to “off” in the “take” case. Basically, “on …” is modifying the thing that should be taken. In your example, “on the square” is modifying “the cone”.

How do I print out the response?

One way of doing it is to take the input list (e.g., [put, the, red, block, on, the, green, circle]), and convert it to another output list. To come up with this output list, you need to check each member of the original list to see whether it requires any change. Once you have the output list, you can simply write each member of the output list out using “write”. The key here is to do some list operations.

When implementing the predicate “command”, this command will take an argument and do some processing, then provide output.

An example could be:

command(X) :- X==[],!, write(' it is an empty list').
command(X) :- write('it is not an empty list").


Then you can test it:

?- command([]).
this is an empty list
yes
?- command([a,b,c]).
this is not an empty list
yes


Certainly the above is only an example, you will need to re-implement “command” to fit that to our problem here.

I have np defined as follows. The problem is that the last definition of np never halts.

np --> det, adj, n.
np --> det, n.
np --> np, pp.


Your third rule np-->np, pp will loop infinitely. You can change np-->np, pp to “np-->det, n, pp, etc.

Is it alright to have an infinite number of chains for the prepositional section of the sentence? For example, is [put,the,cone,on,the,cone,on,the,cone,on,the,cone,on,the,cone....] valid input, or should this terminate after 1 or 2 prepositions?

It should be able to support an arbitrary number of pps as valid input. But all the testing cases will not go beyond the ones you’ve seen in the training data.

A valid sentence is take the ball, but it looks like put the ball is not. I’m not sure how to accept take but not put for my one rule that accepts a noun with an empty pp.

Good catch here! There is indeed a difference between “put” and “take”. We have not talked about lexicalized grammar, so we will not worry about this difference for now. My testing cases will be strictly following the training examples, will not be testing anything like “put that ball”.

However, for your information, to distinguish “put” and “take” in this use, we can have lexicalized grammar. Basically, instead of a general “V”, we can separate it to “V-Put” and “V-Take”. Then other grammar rules will be updated accordingly to use “V-Put” and “V-Take”.

Are cubes, cones, and blocks the only nouns that can have action taken against them? (e.g., you cannot take a square or circle)

You made a very good observation. To make the problem simpler, here we mainly focus on the syntax, without worrying about the semantics, e.g., what objects can or cannot be taken. So all the nouns should behave the same even though we do not see “take the square” in the example.