From d96f315245fe26ad9f2c632037bd25e17150b0bc Mon Sep 17 00:00:00 2001
From: jfschaefer <jfschaefer@outlook.com>
Date: Fri, 1 Nov 2019 09:58:42 +0100
Subject: [PATCH] oct 31 prolog tutorial
---
Frederik/README.md | 3 +-
Frederik/prolog/2019-10-31-tutorial.pl | 65 ++++++++++++++++++++++++++
2 files changed, 67 insertions(+), 1 deletion(-)
create mode 100644 Frederik/prolog/2019-10-31-tutorial.pl
diff --git a/Frederik/README.md b/Frederik/README.md
index 095beb0..4533f32 100644
--- a/Frederik/README.md
+++ b/Frederik/README.md
@@ -4,4 +4,5 @@ Readme
AI 1 - 2019/2020
---
-* 2019-10-28: `2019-10-28-tutorial.pl` (simple prolog exercises)
+* 2019-10-28: `prolog/2019-10-28-tutorial.pl` (simple prolog exercises)
+* 2019-10-31: `prolog/2019-10-31-tutorial.pl` (simple prolog exercises)
diff --git a/Frederik/prolog/2019-10-31-tutorial.pl b/Frederik/prolog/2019-10-31-tutorial.pl
new file mode 100644
index 0000000..11c4f28
--- /dev/null
+++ b/Frederik/prolog/2019-10-31-tutorial.pl
@@ -0,0 +1,65 @@
+% INTRODUCTION
+
+animal(elephant).
+
+bigger(elephant, bird).
+bigger(elephant, cow).
+bigger(cow, mouse).
+
+bigger(X, Y) :-
+ bigger(X, A), bigger(A, Y).
+
+% Note: The above definition for a transitive relation
+% results in loop, which wasn't resolved during the tutorial.
+% If you want to know more about it, take a look at this answer:
+% https://stackoverflow.com/a/28615704
+
+
+% SIMPLE LIST TASKS
+% inspired from http://www.ic.unicamp.br/~meidanis/courses/mc336/2009s2/prolog/problemas/
+
+getfirst([X|_], X).
+
+getlast([X], X).
+getlast([_|R], X) :-
+ getlast(R, X).
+
+getsecondlast([X,_], X).
+getsecondlast([_|R], X) :-
+ getsecondlast(R, X).
+
+getlength([], 0).
+getlength([X|R], L) :-
+ getlength(R, N), L is N+1.
+
+second([], []).
+second([X], [X]).
+second([X,Y|R], [X|S]) :-
+ second(R, S).
+
+fourth(X, Y) :-
+ second(X, Z), second(Z, Y).
+
+prepend(X,SomeList,[X|SomeList]).
+
+duplicate([], []).
+duplicate([X|R], [X,X|S]) :-
+ duplicate(R, S).
+
+
+% INSERTION SORT
+
+insert(X, [], [X]).
+insert(X, [H|R], [H|S]) :-
+ X >= H, insert(X, R, S).
+insert(X, [H|R], [X,H|R]) :-
+ X =< H.
+
+inssort([], []).
+inssort([H|T], L) :-
+ inssort(T, TSorted),
+ write('inserting '),
+ write(H),
+ write('\n'),
+ insert(H, TSorted, L).
+
--
GitLab