diff options
| author | Camil Staps | 2017-09-29 17:10:05 +0200 |
|---|---|---|
| committer | Camil Staps | 2017-09-29 17:10:05 +0200 |
| commit | 08e04ab093aefc4c962a831745237a212d2c0604 (patch) | |
| tree | c11ecb3bf23dbfa8aa4f4f015cf5b6713e2cc0bb /assignment-3/serialize3Start.icl | |
| parent | read1Cons (diff) | |
Added outputs as comments
Diffstat (limited to 'assignment-3/serialize3Start.icl')
| -rw-r--r-- | assignment-3/serialize3Start.icl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/assignment-3/serialize3Start.icl b/assignment-3/serialize3Start.icl index cfc09c3..962716a 100644 --- a/assignment-3/serialize3Start.icl +++ b/assignment-3/serialize3Start.icl @@ -241,3 +241,23 @@ test a = s = write a ["\n"]
r = read s
jr = fromJust r
+
+/*
+Oke, write produces: True
+Oke, write produces: False
+Oke, write produces: 0
+Oke, write produces: 123
+Oke, write produces: -36
+Oke, write produces: (Cons 42 Nil)
+Oke, write produces: (Cons 0 (Cons 1 (Cons 2 (Cons 3 (Cons 4 Nil)))))
+Oke, write produces: (Cons (Cons True Nil) (Cons Nil Nil))
+Oke, write produces: (Cons (Cons (Cons 1 Nil) Nil) (Cons (Cons (Cons 2 Nil) (Cons (Cons 3 (Cons 4 Nil)) Nil)) (Cons (Cons Nil Nil) Nil)))
+Oke, write produces: (Bin Leaf True Leaf)
+Oke, write produces: (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, write produces: (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, write produces: Head
+Oke, write produces: Tail
+Oke, write produces: (7,True)
+Oke, write produces: (Head,(7,(Cons Tail Nil)))
+End of the tests.
+*/
|