Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (6 sloc) 233 Bytes
import Text.Regex.Posix ((=~))
pattern :: String -> [String]
pattern = filter_par . (flip (=~) $ "\\([a-z]+\\)|[a-z]")
where filter_par = map (filter ((=~ "[a-z]") . show))
expand :: [String] -> [String]
expand ((x:[]):xs) = []
Something went wrong with that request. Please try again.