Balanced brackets: Difference between revisions
m
→{{header|Haskell}}
m (Fixed bug) |
|||
Line 3,960:
-------------------- BALANCED BRACKETS -------------------
nesting :: String -> [Int]▼
nesting = tail . scanl (flip level) 0▼
where▼
bracketProblemIndex :: String -> Maybe Int
Line 3,970 ⟶ 3,978:
| otherwise = Nothing
▲nesting :: String -> [Int]
▲nesting = tail . scanl level 0
▲ where
▲ level n '[' = succ n
▲ level n ']' = pred n
▲ level n _ = n
--------------------------- TEST -------------------------
| |||