dec1.dcl

visual prolog7.1学习的极好源代码

wrd("ROSA", "singular", ["ROSA", "ROSAE", "ROSAE", "ROSA", "ROSAM"]).
wrd("ROSA", "plural", ["ROSAE", "ROSARUM", "ROSIS", "ROSIS", "ROSAS"]).
wrd("PUER", "singular", ["PUER", "PUERI", "PUERO", "PUERO", "PUERUM"]).
wrd("PUER", "plural", ["PUERI", "PUERORUM", "PUERIS", "PUERIS", "PUEROS"]).
decl("DOMINUS", "DOMIN", snda).
decl("PUELLA", "PUELL", prma).
decl("NAUTA", "NAUT", prma).
decl("AGER",  "AGR", snda).
decl("AMATUS", "AMAT", snda).
decl("ANIMAL", "ANIMAL", ntrtium).
num_state("singular").
num_state("plural").