most recent

Umbc331Assignment3 · Oct 7, 2014 · 35c6c40 · 35c6c40
1 parent c9dd466
commit 35c6c40
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/mattsjunk.hs b/mattsjunk.hs
@@ -29,7 +29,11 @@ fixstruct index student ss = do
 addstudent :: a -> (t, [a]) -> (t, [a])
 addstudent s curstu = head [ (y, s: x) | let x = snd curstu , let y = fst curstu]
 
+outputlist :: Int -> [[Int]]
+outputlist numgroup =  map (drop 1) (map (:[]) [1..(numgroup)])
 
+checkoutputlist ol = do
+
 {-
 	Updates the current list of already grouped 
 	used for generating groups for assignment