8 down, 91 to go.

Thomasvdam · Jun 11, 2014 · 274bbaf · 274bbaf
1 parent 3339a9e
commit 274bbaf
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/8.hs b/8.hs
@@ -0,0 +1,10 @@
+-- Eliminate consecutive duplicates of list elements.
+
+myCompress :: (Eq a) => [a] -> [a]
+myCompress [] = []
+myCompress [x] = [x]
+myCompress (x:xs)
+  | x == (head xs) = myCompress ([x] ++ tail xs)
+  | otherwise = [x] ++ myCompress xs
+
+main = print (myCompress "AAAABBCDCEEEEA")