blob: 00717d76a608cd5fd5ad600dc6bb14f4cf007224 (
plain)
1
2
3
4
5
6
7
8
9
10
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)
|
