final ass2
[ap2015.git] / a2 / mart / skeleton2.icl
index 4e0ec84..28fc443 100644 (file)
@@ -1,18 +1,12 @@
 module skeleton2\r
-\r
-/*\r
-       Skeleton for Exercise 2 of Advanced Programming.\r
-       Works fine with the environment Everything, but you can also use \r
-       StdEnv and manually add StdMaybe from the directory {Application}\Libraries\StdLib.\r
-       \r
-       Pieter Koopman, 2013\r
+/* \r
+       Mart Lubbers s4109503\r
+       Charlie Gerhardus s3050009\r
 */\r
 \r
 import StdEnv\r
-//import StdMaybe\r
 \r
 /**************** Prelude *************************/\r
-\r
 //     Binary sums and products (in generic prelude)\r
 :: UNIT                = UNIT\r
 :: PAIR   a b  = PAIR a b\r
@@ -34,7 +28,6 @@ toList :: (ListG a) -> [a]
 toList (LEFT (CONS "Nil" UNIT)) = []\r
 toList (RIGHT (CONS "Cons" (PAIR a as))) = [a:as]\r
 \r
-\r
 /**************** End Prelude *************************/\r
 \r
 /**************** Part 1 *******************************/\r