diff options
| -rw-r--r-- | assignment-4/serialize4.icl | 23 | ||||
| -rw-r--r-- | assignment-4/student.icl | 9 |
2 files changed, 32 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) diff --git a/assignment-4/student.icl b/assignment-4/student.icl index ea0bcdf..2daff18 100644 --- a/assignment-4/student.icl +++ b/assignment-4/student.icl @@ -1,5 +1,14 @@ module student +// Laurens Kuiper (s4467299) +// Camil Staps (s4498062) + +// Example output: +// Your first name please: Camil +// Your last name please: Staps +// Your student number please: 4498062 +// {Student|fname=Camil,lname=Staps,snum=4498062} + import StdEnv, StdMaybe, monad /* * Pieter Koopman, pieter@cs.ru.nl |