%%  Datei:  inbetween.pl
%%
%%  Programmierkurs Prolog (Sommersemester 2002),
%%  Material fuer Uebungsblatt 3, Aufgabe 3.1


%%  Das Praedikat 'inbetween(+Start,+Ende,?X)' prueft, ob 'X' zwischen
%%  'Start' und 'Ende' liegt (inkl. dieser Randwerte).  Beispiel:
%%  'inbetween(3,5,X)' wird von 'X' gleich 3, 4 und 5 erfuellt.

%%  Wenn 'Start <= Ende', dann ist 'X = Start' eine Loesung:

inbetween(Start,Ende,Start) :- Start =< Ende.

%%  Wenn 'Start < Ende', ist auch 'X' mit inbetween(Start+1,Ende,X} 
%%  eine Loesung:

inbetween(Start,Ende,X) :-
    Start < Ende,
    Start1 is Start+1,
    inbetween(Start1,Ende,X).