Balanced brackets: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,960: / Line 3,960: @@
 -------------------- BALANCED BRACKETS -------------------
+nesting :: String -> [Int]
+nesting = tail . scanl (flip level) 0
+  where
+    level '[' = succ
+    level ']' = pred
+    level  _  = id
 bracketProblemIndex :: String -> Maybe Int
@@ Line 3,970: / Line 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 -------------------------