Add script

PR02/prax02.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/swipl
 married(liisa, joosep).
-married(anne,vello).
+married(anne, vello).
 mother(evelin,anne).
 mother(mikk, anne).
 mother(juku, anne).
@@ -8,7 +8,7 @@ mother(anne, liisa).
 mother(mart, liisa).
 female(anne).
 female(evelin).
-female(anne).
+female(liisa).
 male(vello).
 male(mikk).
 male(juku).
@@ -32,10 +32,18 @@ sister(Laps, Ode):-
     female(Ode).
 
 uncle(Laps, Uncle):-
-    mother(Laps, Ema),
+    (mother(Laps, Vanem); father(Laps, Vanem)),
-    brother(Ema, Uncle).
+    brother(Vanem, Uncle).
 
-uncle(Laps, Uncle):-
+aunt(Laps, Aunt):-
-    father(Laps, Isa),
+    (mother(Laps, Vanem); father(Laps, Vanem)),
-    brother(Isa, Uncle).
+    sister(Vanem, Aunt).
+
+grandmother(Laps, GM):-
+    (mother(Laps, Vanem); father(Laps, Vanem)),
+    mother(Vanem, GM).
+
+grandfather(Laps, GF):-
+    (mother(Laps, Vanem); father(Laps, Vanem)),
+    father(Vanem, GF).
     

auto_commit.sh

@@ -0,0 +1,9 @@
+#!/bin/bash
+
+while true; do
+    if git diff --exit-code --name-only; then
+        sleep 1
+    else
+        git commit -a --amend -C HEAD && git push --force
+    fi
+done