update

codewars/6-kyu/does-my-number-look-big-in-this/solution.hs

@@ -1,17 +0,0 @@
--- https://www.codewars.com/kata/5287e858c6b5a9678200083c
-
-module Narcissistic where
-
-splitNum n = reverse $ impl n
-  where
-  impl n
-    | n < 10 = [n]
-    | otherwise = (n `mod` 10):(impl (n `div` 10))
-
-narcissistic :: Integral n => n -> Bool
-narcissistic n
-  | (sum $ map (^ (length splited)) splited) == n = True
-  | otherwise = False
-  where
-    splited = splitNum n
-

codewars/6-kyu/duplicate-encoder/solution.hs

@@ -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

codewars/6-kyu/equal-sides-of-an-array/solution.hs

@@ -1,11 +0,0 @@
--- https://www.codewars.com/kata/5679aa472b8f57fb8c000047
-
-module Codewars.G964.FindEven where
-
-findEvenIndex :: [Int] -> Int
-findEvenIndex arr = findEvenIndexImpl [] 0 arr
-
-findEvenIndexImpl left n right
-  | right == [] = -1
-  | sum left == sum (tail right) = n
-  | otherwise = findEvenIndexImpl (left ++ [head right]) (n + 1) (tail right)

codewars/6-kyu/valid-braces/solution.hs

@@ -1,21 +0,0 @@
--- https://www.codewars.com/kata/5277c8a221e209d3f6000b56
-module Codewars.Kata.Braces where
-
-validBraces :: String -> Bool
-validBraces xs = impl 0 0 0 xs where
-  impl cnt1 cnt2 cnt3 str =
-    if str == [] then
-      cnt1 == 0 && cnt2 == 0 && cnt3 == 0
-    else let
-      x = head str
-      xs = tail str
-    in
-      if cnt1 < 0 || cnt2 < 0 || cnt3 < 0 then
-        False
-      else if x == '(' then impl (cnt1 + 1) cnt2 cnt3 xs
-      else if x == ')' then impl (cnt1 - 1) cnt2 cnt3 xs
-      else if x == '[' then impl cnt1 (cnt2 + 1) cnt3 xs
-      else if x == ']' then impl cnt1 (cnt2 - 1) cnt3 xs
-      else if x == '{' then impl cnt1 cnt2 (cnt3 + 1) xs
-      else if x == '}' then impl cnt1 cnt2 (cnt3 - 1) xs
-      else False

codewars/7-kyu/sum-of-odd-numbers/solution.hs

@@ -1,6 +0,0 @@
--- https://www.codewars.com/kata/55fd2d567d94ac3bc9000064
-
-module Codewars.SumOddNumbers where
-
-rowSumOddNumbers :: Integer -> Integer
-rowSumOddNumbers x = x * x * x