Student numbers; program output

1 files changed, 23 insertions, 0 deletions

diff --git a/assignment-4/serialize4.icl b/assignment-4/serialize4.icl
index 41a3c02..e5d2f7d 100644
--- a/assignment-4/serialize4.icl
+++ b/assignment-4/serialize4.icl
@@ -1,5 +1,28 @@
 module serialize4
 
+// Laurens Kuiper (s4467299)
+// Camil Staps (s4498062)
+
+// Output:
+// Oke; True
+// Oke; False
+// Oke; 0
+// Oke; 123
+// Oke; -36
+// Oke; (Cons 42 Nil)
+// Oke; (Cons 0 (Cons 1 (Cons 2 (Cons 3 (Cons 4 Nil)))))
+// Oke; (Cons (Cons True Nil) (Cons Nil Nil))
+// Oke; (Cons (Cons (Cons 1 Nil) Nil) (Cons (Cons (Cons 2 Nil) (Cons (Cons 3 (Cons 4 Nil)) Nil)) (Cons (Cons Nil Nil) Nil)))
+// Oke; (Cons (Cons True Nil) (Cons Nil Nil))
+// Oke; (Bin Leaf True Leaf)
+// Oke; (Cons (Bin (Bin Leaf (Cons 1 Nil) Leaf) (Cons 2 Nil) (Bin Leaf (Cons 3 Nil) (Bin Leaf (Cons 4 (Cons 5 Nil)) Leaf))) Nil)
+// Oke; (Cons (Bin (Bin Leaf (Cons 1 Nil) Leaf) (Cons 2 Nil) (Bin Leaf (Cons 3 Nil) (Bin (Bin Leaf (Cons 4 (Cons 5 Nil)) Leaf) (Cons 6 (Cons 7 Nil)) (Bin Leaf (Cons 8 (Cons 9 Nil)) Leaf)))) Nil)
+// Oke; Head
+// Oke; Tail
+// Oke; (7,True)
+// Oke; (Head,(7,(Cons Tail Nil)))
+// End of the tests.
+
 import StdEnv, StdMaybe, monad
 
 appFst :: (a -> c) (a, b) -> (c, b)