From: Mart Lubbers Date: Sat, 12 Sep 2015 12:17:24 +0000 (+0200) Subject: final ass2 X-Git-Tag: assignment2 X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=216da40a9615cff2006d214ac536ce271fdc325d;p=ap2015.git final ass2 --- diff --git a/a2/mart/skeleton2.icl b/a2/mart/skeleton2.icl index 4e0ec84..28fc443 100644 --- a/a2/mart/skeleton2.icl +++ b/a2/mart/skeleton2.icl @@ -1,18 +1,12 @@ module skeleton2 - -/* - Skeleton for Exercise 2 of Advanced Programming. - Works fine with the environment Everything, but you can also use - StdEnv and manually add StdMaybe from the directory {Application}\Libraries\StdLib. - - Pieter Koopman, 2013 +/* + Mart Lubbers s4109503 + Charlie Gerhardus s3050009 */ import StdEnv -//import StdMaybe /**************** Prelude *************************/ - // Binary sums and products (in generic prelude) :: UNIT = UNIT :: PAIR a b = PAIR a b @@ -34,7 +28,6 @@ toList :: (ListG a) -> [a] toList (LEFT (CONS "Nil" UNIT)) = [] toList (RIGHT (CONS "Cons" (PAIR a as))) = [a:as] - /**************** End Prelude *************************/ /**************** Part 1 *******************************/