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 --- files/practicum/StamBoom.icl | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 files/practicum/StamBoom.icl (limited to 'files/practicum/StamBoom.icl') diff --git a/files/practicum/StamBoom.icl b/files/practicum/StamBoom.icl deleted file mode 100644 index d2ca227..0000000 --- a/files/practicum/StamBoom.icl +++ /dev/null @@ -1,37 +0,0 @@ -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