diff options
| author | Mistivia <i@mistivia.com> | 2024-01-27 14:16:01 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2024-01-27 14:16:01 +0800 |
| commit | 203658f4a5b8649d0142ab8ff6440eb0eefa48e9 (patch) | |
| tree | 1ac871f3e5cdb91e7d29314ebd33ff8538558ee2 /codewars/6-kyu/Duplicate Encoder/solution.hs | |
| parent | 6580dcd9127f69aaa794472ec92bc46015dc4019 (diff) | |
rename folders
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 |