diff options
Diffstat (limited to 'codewars/6-kyu/duplicate-encoder/solution.hs')
| -rw-r--r-- | codewars/6-kyu/duplicate-encoder/solution.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/codewars/6-kyu/duplicate-encoder/solution.hs b/codewars/6-kyu/duplicate-encoder/solution.hs deleted file mode 100644 index 1cb38eb..0000000 --- a/codewars/6-kyu/duplicate-encoder/solution.hs +++ /dev/null @@ -1,18 +0,0 @@ --- https://www.codewars.com/kata/54b42f9314d9229fd6000d9c - -module Dups where - -import Data.Char - -count s c - | s == [] = 0 - | c == (head s) = 1 + count (tail s) c - | otherwise = count (tail s) c - -convert s c - | count s c > 1 = ')' - | otherwise = '(' - -duplicateEncode :: String -> String -duplicateEncode s = map (convert ls) ls - where ls = map toLower s |