Merge branch 'master' of https://github.com/Umbc331Assignment3/assign…

…ment3
Umbc331Assignment3 · Oct 7, 2014 · 1104da4 · 1104da4
2 parents fffb1fa + c5070e4
commit 1104da4
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/mattsjunk.hs b/mattsjunk.hs
@@ -27,11 +27,16 @@ fixstruct index student ss = do
 	and the second element is the list of already grouped students
 -}
 addstudent :: a -> (t, [a]) -> (t, [a])
-addstudent s curstu = head [ (y, s:g x) | let x = snd curstu , let y = fst curstu]
+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 (ss) curstu ol= 
+--	if (not . (elem curstu ol))
+--	then if
+--			map curstu currentstudent `checkindividual`
+--			then 
 
 
 {-