Week 10 with @zebesta

Week10.hs

sherlock :: Int -> Int -> Int -> [Int] -> Bool
sherlock left current sm [] =
    if left == sm
        then True
        else False

sherlock left current sm rest =
    case compare left sm of
        LT -> let
            left'          = left + current
            current':rest' = rest
            sm'            = sm - current'
            in sherlock left' current' sm' rest'
        EQ -> True
        GT -> False

sherlock' ls = let
    left = 0
    current:rest = ls
    sm = sum rest
    in sherlock left current sm rest
   
sherlock'' ls = if sherlock' ls then "YES" else "NO"
    
main = do
    numCases <- fmap read getLine :: IO Int
    mapM (\_ -> do
        getLine
        input <- getLine
        let numbers = map read $ words input :: [Int]
        putStrLn (sherlock'' numbers)
        ) [1..numCases]