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
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