S表达式解析

Ben*_*aum 4 c# clojure s-expression

我今天早些时候遇到了这个问题:

示例输入:我遇到Joe和Jill然后我们去购物
示例输出: [TOP [S [S [NP [PRP I]] [VP [VBD run] [PP [IN into] [NP [NNP Joe] [CC和[NNP Jill]]]]] [CC和] [S [ADVP [RB然后]] [NP [PRP我们]] [VP [VBD去] [NP [NN购物]]]]]]

在此输入图像描述

我打算建议简单地将预期输出(因为它看起来像一个s表达式)解析为一个对象(在我们的例子中是一个树),然后使用简单的LINQ方法来处理它.但令我惊讶的是,我无法找到C#s-expression解析器.

我唯一能想到的是使用Clojure解析它,因为它编译成clr,我不确定它是一个很好的解决方案.

顺便说一句,我不介意输出类型的答案dynamic.我在这里找到的答案只是用于反序列化为特定模式.

总结一下我的问题: 我需要在C#中反序列化s表达式(序列化对于这个问题的未来读者来说会很好)

Dan*_*rod 7

看起来你需要一个表单的数据结构:

public class SNode
{
    public String Name { get; set; }

    private readonly List<SNode> _Nodes = new List<SNode>();
    public ICollection<SNode> Nodes { get { return _Nodes; } }
}
Run Code Online (Sandbox Code Playgroud)

表格的序列化程序

public String Serialize(SNode root)
{
    var sb = new StringBuilder();
    Serialize(root, sb);
    return sb.ToString();
}

private void Serialize(SNode node, StringBuilder sb)
{
    sb.Append('(');

    sb.Append(node.Name);

    foreach (var item in node.Nodes)
        Serialize(item, sb);

    sb.Append(" )");
}
Run Code Online (Sandbox Code Playgroud)

并且形式的反序列化器:

public SNode Deserialize(String st)
{
    if (String.IsNullOrWhiteSpace(st))
        return null;

    var node = new SNode();

    var nodesPos = String.IndexOf('(');
    var endPos = String.LastIndexOf(')');

    var childrenString = st.SubString(nodesPos, endPos - nodesPos);

    node.Name = st.SubString(1, (nodesPos >= 0 ? nodePos : endPos)).TrimEnd();

    var childStrings = new List<string>();

    int brackets = 0;
    int startPos = nodesPos;
    for (int pos = nodesPos; pos++; pos < endPos)
    {
        if (st[pos] == '(')
            brackets++;
        else if (st[pos] == ')')
        {
            brackets--;

            if (brackets == 0)
            {
                childStrings.Add(st.SubString(startPos, pos - startPos + 1));
                startPos = pos + 1;
            }
        }
    }

    foreach (var child in childStrings)
    {
        var childNode = Deserialize(this, child);
        if (childNode != null)
            node.Nodes.Add(childNode);
    }

    return node;
}
Run Code Online (Sandbox Code Playgroud)

但是,如果还没有测试甚至编译过这段代码,那么这或多或少都会起作用.