From 58709a89622062b527b242f65aa0501a4efd47d3 Mon Sep 17 00:00:00 2001
From: Mistivia <i@mistivia.com>
Date: Thu, 15 Feb 2024 17:06:54 +0800
Subject: update

---
 .../does-my-number-look-big-in-this/solution.hs     | 17 -----------------
 codewars/6-kyu/duplicate-encoder/solution.hs        | 18 ------------------
 codewars/6-kyu/equal-sides-of-an-array/solution.hs  | 11 -----------
 codewars/6-kyu/valid-braces/solution.hs             | 21 ---------------------
 codewars/7-kyu/sum-of-odd-numbers/solution.hs       |  6 ------
 5 files changed, 73 deletions(-)
 delete mode 100644 codewars/6-kyu/does-my-number-look-big-in-this/solution.hs
 delete mode 100644 codewars/6-kyu/duplicate-encoder/solution.hs
 delete mode 100644 codewars/6-kyu/equal-sides-of-an-array/solution.hs
 delete mode 100644 codewars/6-kyu/valid-braces/solution.hs
 delete mode 100644 codewars/7-kyu/sum-of-odd-numbers/solution.hs

diff --git a/codewars/6-kyu/does-my-number-look-big-in-this/solution.hs b/codewars/6-kyu/does-my-number-look-big-in-this/solution.hs
deleted file mode 100644
index 1b84d9f..0000000
--- a/codewars/6-kyu/does-my-number-look-big-in-this/solution.hs
+++ /dev/null
@@ -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
-
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
diff --git a/codewars/6-kyu/equal-sides-of-an-array/solution.hs b/codewars/6-kyu/equal-sides-of-an-array/solution.hs
deleted file mode 100644
index 00717d7..0000000
--- a/codewars/6-kyu/equal-sides-of-an-array/solution.hs
+++ /dev/null
@@ -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)
diff --git a/codewars/6-kyu/valid-braces/solution.hs b/codewars/6-kyu/valid-braces/solution.hs
deleted file mode 100644
index 6b139fd..0000000
--- a/codewars/6-kyu/valid-braces/solution.hs
+++ /dev/null
@@ -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
diff --git a/codewars/7-kyu/sum-of-odd-numbers/solution.hs b/codewars/7-kyu/sum-of-odd-numbers/solution.hs
deleted file mode 100644
index 11bb86e..0000000
--- a/codewars/7-kyu/sum-of-odd-numbers/solution.hs
+++ /dev/null
@@ -1,6 +0,0 @@
--- https://www.codewars.com/kata/55fd2d567d94ac3bc9000064
-
-module Codewars.SumOddNumbers where
-
-rowSumOddNumbers :: Integer -> Integer
-rowSumOddNumbers x = x * x * x
-- 
cgit v1.0