tex-projects/LaTeX-examples
2
0
Fork 0
mirror of https://github.com/MartinThoma/LaTeX-examples.git synced 2025-04-25 14:28:05 +02:00
Code Activity

Prolog

Browse source
This commit is contained in:
Martin Thoma 2014-03-20 19:20:30 +01:00
parent 683b8a645a
commit 82dd24d55b
10 changed files with 124 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
documents/Programmierparadigmen/scripts/prolog/dl-faerbbarkeit Executable file
View file

Binary file not shown.

18
documents/Programmierparadigmen/scripts/prolog/dl-faerbbarkeit.pl Normal file
View file

@ -0,0 +1,18 @@
farbe(blau).
farbe(gelb).
farbe(gruen).
nachbar(X, Y) :- farbe(X), farbe(Y), X \= Y.
deutschland(SH,MV,HH,HB,NI,ST,BE,BB,SN,NW,HE,TH,RP,SL,BW,BY) :-
nachbar(SH, NI), nachbar(SH, HH), nachbar(SH, MV),
nachbar(HH, NI),
nachbar(MV, NI), nachbar(MV, BB),
nachbar(NI, HB), nachbar(NI, BB), nachbar(NI, ST), nachbar(NI, TH),
nachbar(NI, HE), nachbar(NI, NW),
nachbar(ST, BB), nachbar(ST, SN), nachbar(ST, TH),
nachbar(BB, BE), nachbar(BB, SN),
nachbar(NW, HE), nachbar(NW, RP),
nachbar(SN, TH), nachbar(SN, BY),
nachbar(RP, SL), nachbar(RP, HE), nachbar(RP, BW),
nachbar(HE, BW), nachbar(HE, TH), nachbar(HE, BY),
nachbar(TH, BY),
nachbar(BW, BY).

2
documents/Programmierparadigmen/scripts/prolog/hello-world.pl
View file

@ -1,2 +1,2 @@
:- initialization(main).
main :- write('Hello World!'), nl, halt.
main :- write('Hello World!'), nl, halt.

4
documents/Programmierparadigmen/scripts/prolog/praedikat-farbe.pl Normal file
View file

@ -0,0 +1,4 @@
farbe(blau).
farbe(gelb).
farbe(gruen).
farbe(rot).

1
documents/Programmierparadigmen/scripts/prolog/simple-term.pl Normal file
View file

@ -0,0 +1 @@
nachbar(X, Y) :- farbe(X), farbe(Y), X \= Y.