InstallSWIProlog: kahinaswi-test.pl

File kahinaswi-test.pl, 121 bytes (added by ke, 8 years ago)
Line 
1main :-
2  findall(X,a(X),_).
3
4a(X) :-
5  b(X),
6  c(X).
7
8b(1).
9b(2).
10b(3).
11
12c(1) :-
13  false.
14c(2) :-
15  d.
16c(3) :-
17  d.
18
19d.