From 7a7ea498087922dedf7404ed242ef1b381a7306b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 9 Oct 2017 23:36:41 +0200
Subject: Skeleton 5
---
assignment-5/skeleton5.icl | 61 ++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 61 insertions(+)
create mode 100644 assignment-5/skeleton5.icl
(limited to 'assignment-5/skeleton5.icl')
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
--
cgit v1.2.3