diff options
Diffstat (limited to '11-20/13.hs')
-rw-r--r-- | 11-20/13.hs | 10 |
1 files changed, 10 insertions, 0 deletions
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 |