...

1 files changed, 14 insertions, 0 deletions

diff --git a/11-20/11.hs b/11-20/11.hs
new file mode 100644
index 0000000..a64fdc2
--- /dev/null
+++ b/11-20/11.hs
@@ -0,0 +1,14 @@
+pack :: Eq a => [a] -> [[a]]
+
+pack [] = []
+pack [x] = [[x]]
+pack (x:xs) = if x == head y then (x:y):ys else [x]:(y:ys) where (y:ys) = pack xs
+
+data ListItem a = Single a | Multiple Int a deriving Show
+encodeModified :: Eq a => [a] -> [ListItem a]
+
+encodeModified xs = map (\x -> let l = length x
+                                   h = head x in
+                           case l of
+                             1 -> Single h
+                             otherwise -> Multiple l h) $ pack xs