the classes I teach (Ss numbers inaccurate)

2 files changed, 22 insertions, 0 deletions

diff --git a/src/Data/Classes.hs b/src/Data/Classes.hs
new file mode 100644
index 0000000..2651f2a
--- /dev/null
+++ b/src/Data/Classes.hs
@@ -0,0 +1,13 @@
+module Data.Classes (sariulClasses) where
+
+import Types.Classes
+
+sariulClasses :: [Class]
+sariulClasses =
+    [ GradeFive    1    25
+    , GradeFive    2    25
+    , GradeFive    3    25
+    , GradeSix     1    25
+    , GradeSix     2    25
+    , GradeSix     3    25
+    , GradeSix     4    25 ]
diff --git a/src/Types/Classes.hs b/src/Types/Classes.hs
new file mode 100644
index 0000000..79938fc
--- /dev/null
+++ b/src/Types/Classes.hs
@@ -0,0 +1,9 @@
+module Types.Classes where
+
+data Grade = GradeFive
+           | GradeSix
+
+type Multiplier = Float
+
+          -- grade; class; no. Ss
+data Class = Grade  Int    Int