summaryrefslogtreecommitdiff
path: root/11-20
diff options
context:
space:
mode:
Diffstat (limited to '11-20')
-rw-r--r--11-20/11.hs14
-rw-r--r--11-20/12.hs6
-rw-r--r--11-20/13.hs10
3 files changed, 30 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
diff --git a/11-20/12.hs b/11-20/12.hs
new file mode 100644
index 0000000..3c1ce90
--- /dev/null
+++ b/11-20/12.hs
@@ -0,0 +1,6 @@
+data ListItem a = Single a | Multiple Int a deriving Show
+decodeModified :: [ListItem a] -> [a]
+
+decodeModified [] = []
+decodeModified (Single x:xs) = x:(decodeModified xs)
+decodeModified (Multiple l x:xs) = replicate l x ++ decodeModified xs
diff --git a/11-20/13.hs b/11-20/13.hs
new file mode 100644
index 0000000..db5509e
--- /dev/null
+++ b/11-20/13.hs
@@ -0,0 +1,10 @@
+data ListItem a = Single a | Multiple Int a deriving Show
+encodeDirect :: Eq a => [a] -> [ListItem a]
+
+encodeDirect [] = []
+encodeDirect [x] = [Single x]
+encodeDirect (x:xs) = if x == h then n:ys else (Single x):(y:ys)
+ where (y:ys) = encodeDirect xs
+ helper (Single z) = (Multiple 2 z, z)
+ helper (Multiple c z) = (Multiple (c + 1) z, z)
+ (n, h) = helper y