From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 2 Feb 2016 19:24:50 +0100
Subject: Moved to 1415 directory

---
 1415/files/practicum/StamBoom.icl | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 1415/files/practicum/StamBoom.icl

(limited to '1415/files/practicum/StamBoom.icl')

diff --git a/1415/files/practicum/StamBoom.icl b/1415/files/practicum/StamBoom.icl
new file mode 100644
index 0000000..d2ca227
--- /dev/null
+++ b/1415/files/practicum/StamBoom.icl
@@ -0,0 +1,37 @@
+implementation module StamBoom
+
+import StdEnv, GenTree
+
+Start							= 0
+
+::  FamilyTree					:== GenTree Couple Single
+::  Couple						  = Couple Person Person
+::  Single						  = Single Person
+::  Person						  = Person DateOfBirth Gender String
+::  Gender						  = Male | Female
+::  DateOfBirth					  = DoB Year Month Day
+::  Year						:== Int
+::  Month						:== Int
+::  Day							:== Int
+
+
+okFamilyTree					:: FamilyTree -> Bool
+okFamilyTree ...
+
+rootAncestor					:: FamilyTree -> Person
+rootAncestor ...
+
+inFamilyTree					:: Person FamilyTree -> Bool
+inFamilyTree ...
+
+marry							:: Person Person FamilyTree -> FamilyTree
+marry ...
+
+addChild						:: Person Couple FamilyTree -> FamilyTree
+addChild ...
+
+children						:: Person FamilyTree -> [Person]
+children ...
+
+offspring						:: Person FamilyTree -> [Person]
+offspring ...
-- 
cgit v1.2.3