0votos

Parentesis en Haskell

por josejuan hace 4 años

Contando pares.

Determinar si los parentesis son correctos

1
2
3
4
5
6
7
8
9
closed :: String -> Bool 
closed xs = 
 
    let ac p (a, b) | p == ')'  = (a + 1, b) 
                    | otherwise = (a, b + 1) 
         
        deltas@(h:_) = map (uncurry (-)) $ scanr ac (0, 0) xs 
         
    in  h == 0 && all (>=0) deltas 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.