> sequence_ $ map (putStrLn . concat) $ sequence $ either undefined id $ parse (many (liftM return (many1 $ noneOf "[") <|> (between (char '[') (char ']') $ sepBy (many $ noneOf "]|") (char '|')))) "" "1[ab|c]2[qw|er|ty]" 1ab2qw 1ab2er 1ab2ty 1c2qw 1c2er 1c2ty
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
Re: меня уже поправили (с pre)
Date: 2008-02-27 08:33 am (UTC)