Prolog: Zahlen von 1 bis 10 Beispiel hinzugefügt

documents/Programmierparadigmen/Prolog.tex

@@ -148,8 +148,14 @@ Wer trinkt Wasser? Wem gehört das Zebra?
 
 TODO
 
+\section{Zahlen generieren}
+Folgendes Skript generiert durch reerfüllung die Zahlen $1, \dots, 10$:
+
+\inputminted[numbersep=5pt, tabsize=4]{prolog}{scripts/prolog/zahlen-bis-10.pl}
+
 \section{Weitere Informationen}
 \begin{itemize}
     \item \href{http://wiki.ubuntuusers.de/Prolog}{\path{wiki.ubuntuusers.de/Prolog}}: Hinweise zur Installation von Prolog unter Ubuntu
+    \item \url{http://www.swi-prolog.org/}
 \end{itemize}
 \index{Prolog|)}

documents/Programmierparadigmen/scripts/prolog/zahlen-bis-10.pl

@@ -0,0 +1,3 @@
+nat(1).
+nat(X) :- nat(X1),X is X1+1.
+nat10(X) :- nat(X), ( X > 10 -> !, fail ; true ).