diff options
| author | Mistivia <i@mistivia.com> | 2024-02-15 17:06:54 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2024-02-15 17:06:54 +0800 |
| commit | 58709a89622062b527b242f65aa0501a4efd47d3 (patch) | |
| tree | 118a2a30c2dfc65360c4d5a8c85a81b80178c93a /codewars/6-kyu/duplicate-encoder | |
| parent | 4e5cb9c3b56bc1c84118586d2f9b7fde6566285a (diff) | |
update
Diffstat (limited to 'codewars/6-kyu/duplicate-encoder')
| -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 |