rename to H**, +31 +32 +33 +34 +35 +36

1 files changed, 0 insertions, 15 deletions

diff --git a/h13.hs b/h13.hs
deleted file mode 100644
index ec0a395..0000000
--- a/h13.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-data ListItem a = Single a | Multiple a Int
-    deriving (Show)
-
-encode :: Eq a => [a] -> [(a,Int)]
-encode = foldr encodeHelper [] 
-    where 
-        encodeHelper a p@((x,c):ps) | x==a = (a,c+1):ps
-        encodeHelper a p = (a,1):p
-
-encodeDirect :: Eq a => [a] -> [ListItem a]
-encodeDirect = map encodeHelper . encode
-    where
-        encodeHelper (a,c)
-            | c>1 = Multiple a c
-            | otherwise = Single a