% Autor:
% Datum: 18.11.2011



% Autor: T. Hempel

/* AB PROLOG - Kapitel A
"Die drei Jungen Fritz, Hans und Karl rudern mit ihren
Booten auf einem See. Die Boote Haben die Farben rot,
grün und blau. Der Junge im Roten Boot ist der Bruder
von Fritz, Hans sitzt nicht im grünen Boot, der Junge
im grünen Boot hat Streit mit Fritz. Wir suchen jeweils
den Namen des Jungen im roten, grünen bzw. blauen Boot."
*/

junge(fritz).
junge(hans).
junge(karl).

farbe(rot).
farbe(gruen).
farbe(blau).

boot(N,F):-junge(N),farbe(F).

loesung:-
  boot(hans,HB), HB\=gruen,
  boot(fritz,FB),FB\=rot,FB\=gruen,HB\=FB,
  boot(karl,KB), KB\=HB,KB\=FB,
  write('Hans sitzt im '),write(HB),writeln('en Boot.'),
  write('Fritz sitzt im '),write(FB),writeln('en Boot.'),
  write('Karl sitzt im '),write(KB),writeln('en Boot.'),fail.