1
0
forked from GitHub/gf-rgl

(Hun) Add dLó to smart paradigm

This commit is contained in:
Inari Listenmaa
2020-04-04 21:37:05 +02:00
parent 1f9ac2c35d
commit 684cec4c34

View File

@@ -101,8 +101,9 @@ oper
-- regNoun is a /smart paradigm/: it takes one or a couple of forms,
-- and decides which (non-smart) paradigm is the most likely to match.
regNoun : Str -> Noun = \sgnom -> case sgnom of {
_ + "a"|"e" => dAlma sgnom ;
_ + "a"|"e" => dAlma sgnom ;
_ + ("á"|"é") + ? => dMadár sgnom ;
_ + ("ó"|"ő") => dLó sgnom ;
-- TODO: more non-smart paradigms + more pattern matching
-- TODO: smart paradigms with >1 form. Which forms are the most descriptive?