test_rule.pro

来自「经典的基于Context-Free_Grammer 的语法分析器。」· PRO 代码 · 共 22 行

% Author: Ying Tao, Department of Biomedical Informatics, Columbia University
% Date: 12/7/2005

:-module(test_rule,[rule/2]).

%testing grammar
rule([det(Det),noun(Noun)],[np([det(Det),noun(Noun)])]).
rule([np(NP),verb(Verb),np(NP1)],[s([np(NP),verb(Verb),np(NP1)])]).
rule([np(Np),vp(Vp)],[s([np(Np),vp(Vp)])]).
rule([verb(Verb),np(Np)],[vp([verb(Verb),np(Np)])]).

%testing lexicon
rule([a],[det(a)]).
rule([the],[det(the)]).
rule([cat],[noun(cat)]).
rule([dog],[noun(dog)]).
rule([chase],[verb(chase)]).
rule([pig],[noun(pig)]).
rule([mouse],[noun(mouse)]).