Prolog解析输出

Question

我正在上大学的一部分课程，并且坚持使用Prolog。

课程的工作是制作一个非常基本的Watson（可以回答有关Jeapoardy的问题的机器）。

无论如何，我设法使其输出以下内容：

noun_phrase(det(the),np2(adj(traitorous),np2(noun(tostig_godwinson)))),
verb_phrase(verb(was),np(noun(slain)))).

但是课程要求我现在需要提取第一个和第二个名词以及动词，以使句子更简洁。 即[Tostig_godwinson，被杀]。

我更喜欢使用C等语言进行编程，因此有点卡住了。 如果这是一种过程语言，我将使用解析工具，但Prolog没有任何...我需要怎么做才能提取那些部分？

先感谢您

Answer 1

在Prolog中，语言是解析工具。 使用univ（ =.. ）运算符进行期限检查：

% find terminal nodes (words) in Tree
terminal(Tree, Type, Item) :-
    Tree =.. [Type, Item],
    atomic(Item).
terminal(Tree, Type, Item) :-
    Tree =.. [_, Sub],
    member(Node, Sub),
    terminal(Node, Type, Item).

现在获得带有findall(N, terminal(Tree, noun, N), Nouns) nth1 findall(N, terminal(Tree, noun, N), Nouns)的所有名词的列表，并获得nth1元素。