final ass2 assignment2
authorMart Lubbers <mart@martlubbers.net>
Sat, 12 Sep 2015 12:17:24 +0000 (14:17 +0200)
committerMart Lubbers <mart@martlubbers.net>
Sat, 12 Sep 2015 12:17:24 +0000 (14:17 +0200)
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