7 lines
170 B
Haskell
7 lines
170 B
Haskell
|
isMatching :: String -> Bool
|
||
|
|
isMatching = null . foldl aut []
|
||
|
|
where
|
||
|
|
aut ('[':s) ']' = s
|
||
|
|
-- aut ('{':s) '}' = s -- automaton could be extended
|
||
|
|
aut s x = x:s
|