serie3_findetHauptstadt.pl

% vim:set noet sts=0 sw=8 ts=8 ft=prolog:

:- [hauptstadt].

hilfe :-
	write('Anfragen mit:'), nl,
	tab(3), write('?- findeHauptstadt.'), nl,
	write('Sichern der aktuellen Daten mit:'), nl,
	tab(3), write('?- speichern.'), nl.

findeHauptstadt :-
	write('Geben Sie das Land ein: '),
	read(Land),
	(
		hauptstadt(Land, Hauptstadt) -> (
			write('Die Hauptstadt ist: '),
			write(Hauptstadt)
		); (
			write('Die Hauptstadt konnte nicht gefunden werden.'), nl,
			write('Bitte geben Sie sie ein:'), nl,
			read(Hauptstadt),
			assertz(hauptstadt(Land, Hauptstadt))
		)
	).

speichern :-
	open('hauptstadt.pl', write, Stream),
	write(Stream, ':- dynamic hauptstadt/2.\n\n'),
	forall(
		hauptstadt(Land, Hauptstadt),
		format(Stream, "hauptstadt('~w', '~w').\n", [Land, Hauptstadt])
	),
	close(Stream).

serie3_hauptstadt.pl

:- dynamic hauptstadt/2.

hauptstadt('Deutschland', 'Berlin').
hauptstadt('Frankreich', 'Paris').
hauptstadt('Schweden', 'Stockholm').