diff options
| author | Camil Staps | 2017-10-09 23:36:41 +0200 |
|---|---|---|
| committer | Camil Staps | 2017-10-09 23:37:25 +0200 |
| commit | 7a7ea498087922dedf7404ed242ef1b381a7306b (patch) | |
| tree | dc14fc804b948d8e9f6e91cbd57f867bf8c45b78 /assignment-5/skeleton5.icl | |
| parent | Student numbers; program output (diff) | |
Skeleton 5
Diffstat (limited to 'assignment-5/skeleton5.icl')
| -rw-r--r-- | assignment-5/skeleton5.icl | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/assignment-5/skeleton5.icl b/assignment-5/skeleton5.icl new file mode 100644 index 0000000..37115e4 --- /dev/null +++ b/assignment-5/skeleton5.icl @@ -0,0 +1,61 @@ +module skeleton5
+
+import iTasks
+
+/*
+ * Pieter Koopman, pieter@cs.ru.nl
+ * Advanced Programming. Skeleton for assignment 5
+ * - use this a project with environment iTasks
+ * - executable must be in Examples/iTasks or a subdirectory
+ * You can also use the -sdk commandline flag to set the path
+ * check Project Options -> Profiling -> Dynamics to prevent recompilation
+ */
+
+:: Student =
+ { name :: String
+ , snum :: Int
+ , bama :: BaMa
+ , year :: Int
+ }
+
+:: BaMa = Bachelor | Master
+
+Start w = 42
+
+students :: [Student]
+students =
+ [ { name = "Alice"
+ , snum = 1000
+ , bama = Master
+ , year = 1
+ }
+ , { name = "Bob"
+ , snum = 1003
+ , bama = Master
+ , year = 1
+ }
+ , { name = "Carol"
+ , snum = 1024
+ , bama = Master
+ , year = 2
+ }
+ , { name = "Dave"
+ , snum = 2048
+ , bama = Master
+ , year = 1
+ }
+ , { name = "Eve"
+ , snum = 4096
+ , bama = Master
+ , year = 1
+ }
+ , { name = "Frank"
+ , snum = 1023
+ , bama = Master
+ , year = 1
+ }
+ ]
+
+generic gToString a :: a -> String
+
+instance + String where + s t = s +++ t
|