diff options
Diffstat (limited to 'codewars')
| -rw-r--r-- | codewars/6-kyu/does-my-number-look-big-in-this/solution.hs | 17 | ||||
| -rw-r--r-- | codewars/6-kyu/duplicate-encoder/solution.hs | 18 | ||||
| -rw-r--r-- | codewars/6-kyu/equal-sides-of-an-array/solution.hs | 11 | ||||
| -rw-r--r-- | codewars/6-kyu/valid-braces/solution.hs | 21 | ||||
| -rw-r--r-- | codewars/7-kyu/sum-of-odd-numbers/solution.hs | 6 |
5 files changed, 0 insertions, 73 deletions
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 |