aboutsummaryrefslogtreecommitdiff
path: root/codewars/6-kyu/Valid Braces
diff options
context:
space:
mode:
authorMistivia <i@mistivia.com>2024-01-27 14:16:01 +0800
committerMistivia <i@mistivia.com>2024-01-27 14:16:01 +0800
commit203658f4a5b8649d0142ab8ff6440eb0eefa48e9 (patch)
tree1ac871f3e5cdb91e7d29314ebd33ff8538558ee2 /codewars/6-kyu/Valid Braces
parent6580dcd9127f69aaa794472ec92bc46015dc4019 (diff)
rename folders
Diffstat (limited to 'codewars/6-kyu/Valid Braces')
-rw-r--r--codewars/6-kyu/Valid Braces/solution.hs21
1 files changed, 0 insertions, 21 deletions
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