rename folders

1 files changed, 11 insertions, 0 deletions

diff --git a/codewars/6-kyu/equal-sides-of-an-array/solution.hs b/codewars/6-kyu/equal-sides-of-an-array/solution.hs
new file mode 100644
index 0000000..00717d7
--- /dev/null
+++ b/codewars/6-kyu/equal-sides-of-an-array/solution.hs
@@ -0,0 +1,11 @@
+-- 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)