Parsec Haskell列表

Question

我使用Text.ParserCombinators.Parsec和Text.XHtml解析输入并获取HTML输出。

如果我输入的是：

 
    * First item, First level 
    ** First item, Second level 
    ** Second item, Second level 
    * Second item, First level 

我的输出应该是：

<ul><li>First item, First level <ul><li>First item, Second level </li><li>Second item, Second level </li></ul></li><li>Second item, First level</li></ul>

我写了这一点，但显然不递归工作

list= do{ s <- many1 item;return (olist << s) } item= do{ (count 1 (char '*')) ;s <- manyTill anyChar newline ;return (li << s) }

任何想法？ 递归可以超过两个级别

谢谢！

Answer 1

list n = do first <- item n 
      rest <- many $ try $ try (list (n+1)) <|> item n 
      return $ ulist << (first : rest) 

item n = do count n (char '*') 
      s <- manyTill anyChar newline 
      return $ li << s 

现在parse (list 1) "foo" "* a\n** a 1\n** a 2\n* b\n** b 1\n** b 2\n"将返回你所要求的。

但请注意，嵌套列表本身应该在里面，因为这是有效的xhtml。