减少复杂DCG Prolog

时间:2015-06-26 15:07:37

标签: prolog dcg lambda-calculus

如何使用apply(X ^ P,X,P)减少像这个dtv(P1 ^ P2 ^ P3 ^ Q1)的DCG规则? 我试图描述不同语法成分的语义,并且我使用lambda演算。 这就是我对双传递动词的看法,然而,第二个应用函数并不起作用,我想知道我做错了什么。

dtv(P1^P2^P3^Q1)-->[gave],
   {apply(P1,X^Q3,Q1)},
   {apply(P,Y^Q3, P2)},
   {apply(P3,Z^gave(X,Y,Z),Q3)}.

以下是完整的代码:

    % Apply function takes a lambda expression in the form X^P. It unifies X
    % in the first argument with the second argument to get a result P
    apply(X^P, X,P).
    %%%%%%%%
    %SYNTAX
    %%%%%%%%


    % I converted the lambda symbol to ^ in order to make it consistent with
    % the prolog convention and also the library module on lambda.

    s(S) --> np(NP), vp(VP),
    {apply(VP, NP, S)}.%This applies NP and VP to get S

    adjp(Adjp)-->adj(Adj),noun(X^P),
        {apply(Adj,X^P,Adjp)}.%This applies Adjective to noun to get an
    %   adjective Phrase

    np(NP) --> det(Det), noun(X^P), {apply(Det, X^P, NP)}.%Applies Determiner and Noun to get NounPhrase
    np(NP) --> pn(NP).

    np(NP)-->det(Det), adjp(Adjp),
        {apply(Det,Adjp,NP)}.%This applies determiner to adjective phrase to get a Noun Phrase

    pp(PP)-->prep(Prep),np(NP),%prepositional phrase
        {apply(Prep,NP,PP)}.                                                                  
    mp(MP)--> dtv(DTV),np(NP),
        {apply(DTV,NP,MP)}.%This applies ditransitive verb
    %noun phrase to get a modal phrase.

    vp(VP)--> tv(TV), np(NP),
        {apply(TV, NP, VP)}.%This applies transitive verb, noun phrase
    %   to get a verb phrase.


    vp(VP)--> modal(M),np(NP),
        {apply(M, NP, VP)}.%This applies modal (to be) to an adjective to get a verb phrase.

    vp(VP)--> mp(MP),pp(PP),
        {apply(MP,PP,VP)}.%This applies ditransitive verb,
    %noun phrase to get a verb phrase.

    vp(VP) --> iv(VP).

    %%%%%%%%
    % LEXICON
    %%%%%%%%

    prep(X^to(X))-->[to].
    modal(R^S^M)-->[is],
        {apply(R,X,M)},
        {apply(S,X,M)}.
    noun(X^food(X))-->[food].
    noun(X^girl(X))-->[girl].

    adj((X^P)^(Y^and(P,beautiful(Y))))-->[beautiful].

    pn(P^Q)-->[jane],
        {apply(P,jane,Q)}.
    iv(P^Q)-->[runs],
        {apply(P,X^runs(X),Q)}.
    iv(P^Q)-->[sings],
        {apply(P,X^sings(X),Q)}.

    tv(P1^P2^Q2)-->[loves],
        {apply(P2,X^Q1,Q2)},
        {apply(P1,Y^loves(X,Y),Q1)}.

    %Problem spot

dtv(P1^P2^P3^Q1)-->[gave],
    {apply(P1,X^Q3,P2)},
    {apply(P2^P3,Y^Q3, P)},
    {apply(Q1,Z^gave(X,Y,Z),Q3)}.

det(P1^P2^the(X,Q1,Q2))-->[the],
    {apply(P1,X,Q1)},
    {apply(P2,X,Q2)}.
det(P1^P2^a(X,Q1,Q2))-->[a],
    {apply(P1,X,Q1)},
    {apply(P2,X,Q2)}.

1 个答案:

答案 0 :(得分:3)

所以,让我先来看一条建议:至少阅读Prolog and Natural-Language Analysis第4章,pdf。它完全涵盖了您所看到的内容 - apply/3被称为reduce/3。这个apply/3是一种解释事物的形式主义方式,即参数传递。似乎在很多例子中你把它混合了一点。

作为第一步,请考虑您的计划的这一部分:

apply(X^P,X,P).

s(S) --> np(NP), vp(VP), {apply(VP, NP, S)}.

这对应于 1

s(S) --> np(NP), vp(NP^S).

如此有效,没有必要使用apply/3 - 它是一个不错的设备,但最后,上面的符号更紧凑,因为它使用更少的变量。

我建议你清理你的代码,我发现它很难阅读。

您可以放心忽略的脚注
1 实际上,对应关系只是一个声明,转换可能会改善(=更改)vp//1的终止。