crclark96 · March 24, 2020 14:10 · cassidoo · Mar 31, 2020
diff --git a/compress.hs b/compress.hs
 l = ['a','a','b','b','b','c','c']

 compress :: [Char] -> [String]
 compress l = group l >>= (\x -> [take 1 x, show $ length x])

 main = do
  putStrLn . show $ compress l
diff --git a/gistfile1.txt b/gistfile1.txt
 /tmp
 ➜ runhaskell compress.hs
 ["a","2","b","3","c","2"]
	l = ['a','a','b','b','b','c','c']

	compress :: [Char] -> [String]
	compress l = group l >>= (\x -> [take 1 x, show $ length x])

	main = do
	putStrLn . show $ compress l