fumieval · March 14, 2012 07:56
diff --git a/gistfile1.hs b/gistfile1.hs
 collect :: (Functor m, Monad m) => Int -> [m [a]] -> m [a]
 collect 0 _      = return []
 collect _ []     = return []
 collect 1 (x:_)  = take 1 <$> x
 collect n (x:xs) = x >>= \v -> (v ++) <$> collect (n - length v) xs
	collect :: (Functor m, Monad m) => Int -> [m [a]] -> m [a]
	collect 0 _ = return []
	collect _ [] = return []
	collect 1 (x:_) = take 1 <$> x
	collect n (x:xs) = x >>= \v -> (v ++) <$> collect (n - length v) xs