diff options
| author | Mistivia <i@mistivia.com> | 2024-01-27 14:02:35 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2024-01-27 14:02:35 +0800 |
| commit | 6580dcd9127f69aaa794472ec92bc46015dc4019 (patch) | |
| tree | dc2c7e102c75180f7bd98c2f3a14f8b55f83c0f2 /codewars/6-kyu/Equal Sides Of An Array | |
init
Diffstat (limited to 'codewars/6-kyu/Equal Sides Of An Array')
| -rw-r--r-- | codewars/6-kyu/Equal Sides Of An Array/solution.hs | 11 |
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) |