after lecture 5 (will finish AgreementSwe on Wednesday)

This commit is contained in:
Arianna Masciolini
2025-04-14 12:03:38 +02:00
parent 9dac582f1c
commit cb72c1da1b
5 changed files with 110 additions and 4 deletions

View File

@@ -0,0 +1,32 @@
concrete AgreementEng of Agreement = open MorphologyEng in {
lincat
NP = {s: Str; n: Number} ;
CN = Noun ;
N = Noun ;
A = {s: Str} ;
Det = {s: Str; n: Number} ;
lin
DetCN d cn = {
s = d.s ++ (cn.s ! d.n) ;
n = d.n ;
} ;
AdjCN a cn = {
s = \\n => a.s ++ (cn.s ! n) ;
} ;
UseN n = n ;
cat_N = regNoun "cat" ;
house_N = regNoun "house" ;
black_A = {s = "black"} ;
big_A = {s = "big"} ;
this_Det = {
s = "this";
n = Sg ;
} ;
these_Det = {
s = "these";
n = Pl ;
} ;
}