mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 22:38:04 +02:00
Abschnitt über Arithmetik in Prolog hinzugefügt; misc
This commit is contained in:
parent
82dd24d55b
commit
80e8df59d6
20 changed files with 194 additions and 27 deletions
|
@ -0,0 +1,10 @@
|
|||
?- X is 3^2.
|
||||
X = 9.
|
||||
|
||||
?- Y is X*X.
|
||||
ERROR: is/2: Arguments are not sufficiently
|
||||
instantiated
|
||||
|
||||
?- X is X+1.
|
||||
ERROR: is/2: Arguments are not sufficiently
|
||||
instantiated
|
|
@ -0,0 +1,2 @@
|
|||
?- X is 5-2*5.
|
||||
X = -5.
|
5
documents/Programmierparadigmen/scripts/prolog/even.pl
Normal file
5
documents/Programmierparadigmen/scripts/prolog/even.pl
Normal file
|
@ -0,0 +1,5 @@
|
|||
even(0).
|
||||
even(X) :- X>0, X1 is X-1, odd(X1).
|
||||
|
||||
odd(1).
|
||||
odd(X) :- X>1, X1 is X-1, even(X1).
|
|
@ -0,0 +1,6 @@
|
|||
fib(0,0).
|
||||
fib(1,1).
|
||||
fib(X,Y) :- X>1,
|
||||
X1 is X-1, X2 is X-2,
|
||||
fib(X1,Y1), fib(X2,Y2),
|
||||
Y is Y1+Y2.
|
|
@ -0,0 +1,2 @@
|
|||
append([],L,L).
|
||||
append([X|R],L,[X|T]) :- append(R,L,T).
|
|
@ -0,0 +1,3 @@
|
|||
?- [X|Y] = [1,2,3,4,5].
|
||||
X = 1,
|
||||
Y = [2, 3, 4, 5].
|
|
@ -0,0 +1,2 @@
|
|||
member(X,[X|R]).
|
||||
member(X,[Y|R]) :- member(X,R).
|
Loading…
Add table
Add a link
Reference in a new issue