forked from GitHub/gf-core
25 lines
547 B
Plaintext
25 lines
547 B
Plaintext
resource ResFoodsMon {
|
|
param
|
|
Number = Sg | Pl ;
|
|
oper
|
|
Noun : Type = {s : Number => Str} ;
|
|
NounPhrase : Type = {s : Str ; n : Number} ;
|
|
Adjective : Type = {s : Str} ;
|
|
|
|
det : Number -> Str -> Noun -> NounPhrase = \n,d,cn -> {
|
|
s = d ++ cn.s ! n ;
|
|
n = n
|
|
} ;
|
|
regNoun : Str -> Noun = \x -> {
|
|
s = table { Sg => x ;
|
|
Pl => case x of {
|
|
_ + "c" => x + "нууд" ;
|
|
_ => x + "ууд"
|
|
}
|
|
}
|
|
} ;
|
|
mkAdj : Str -> Adjective = \adj -> {s = adj} ;
|
|
} ;
|
|
|
|
|