Did you know ... Search Documentation:
GIT commit info
Corrected spelling error
authorTorbjörn Lager
Sun Mar 4 21:19:47 2018 +0100
committerWiki manager
Sun Mar 4 21:19:47 2018 +0100
commit884b5fc9ff2a1aaac6e730e03992117772a51c1f
treecf6f645c2b1c1a0c2f531733d74c8b3c3b1dedac
parentae2abb23ed5a894fff5ce510545c3bb4110f227e
Diff style: patch stat
diff --git a/pengines/GenealogistUpdate.txt b/pengines/GenealogistUpdate.txt
index a2413d6..e746f1d 100644
--- a/pengines/GenealogistUpdate.txt
+++ b/pengines/GenealogistUpdate.txt
@@ -3,7 +3,7 @@
 In this part of our tutorial we are going to add update capabilities to our application. It is in general not wise to allow a client to use assert/1 and retract/1 directly on the application's database. It is better to wrap assert/1 and retractall/1 in predicates that are then exported by (one of) the application modules. This is exactly what we are doing below.
   ~~~~
   :- module(genealogist, 
-	[  ancestor_decendant/2,
+	[  ancestor_descendant/2,
 	   siblings/2,
 	   parent_child/2,
 	   father_child/2,
@@ -15,8 +15,8 @@ In this part of our tutorial we are going to add update capabilities to our appl
 	]).
 
 
-ancestor_decendant(X, Y) :- parent_child(X, Y).
-ancestor_decendant(X, Z) :- parent_child(X, Y), ancestor_decendant(Y, Z).
+ancestor_descendant(X, Y) :- parent_child(X, Y).
+ancestor_descendant(X, Z) :- parent_child(X, Y), ancestor_descendant(Y, Z).
 
 siblings(X, Y) :- parent_child(Z, X), parent_child(Z, Y), X @< Y.