From 216da40a9615cff2006d214ac536ce271fdc325d Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Sat, 12 Sep 2015 14:17:24 +0200 Subject: [PATCH] final ass2 --- a2/mart/skeleton2.icl | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) 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 *******************************/ -- 2.20.1