next up previous contents
Next: Main Prolog caller Up: Prolog implementation Previous: Grammar and Lexicon

 

Query generator

%% Query generator

% Length 5
examples :-
s([A,B,C,D,E]),
write(A),write(' '),
write(B),write(' '),
write(C),write(' '),
write(D),write(' '),
write(E),write('.'),nl,
backtrack.

% Length 4
examples :-
s([A,B,C,D]),
write(A),write(' '),
write(B),write(' '),
write(C),write(' '),
write(D),write('.'),nl,
backtrack.

% Length 3
examples :-
s([A,B,C]),
write(A),write(' '),
write(B),write(' '),
write(C),write('.'),nl,
backtrack.

% Length 2
examples :-
s([A,B]),
write(A),write(' '),
write(B),write('.'),nl,
backtrack.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



Dafydd Gibbon
Fri Nov 28 02:24:58 MET 1997