file with noun classifiers extracted from DictionaryChi"

This commit is contained in:
aarne
2015-07-19 08:15:59 +00:00
parent 5d02378300
commit a68fae0f84
2 changed files with 25489 additions and 1 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -53,7 +53,8 @@ useMapGF m s = case s of
where
convert cs = case cs of
'"':s -> '"' : useMapGF m s
c :s -> maybe [c] (head . words) (Map.lookup [c] m) ++ convert s
c :s | elem c (['A'..'Z']++['a'..'z'])-> [c] ++ convert s
c :s -> maybe ['#',c] (head . words) (Map.lookup [c] m) ++ convert s
_ -> cs
c2pMap ws = Map.fromList [(c,unwords (map tone2tone ps)) | (_,(c,ps)) <- ws]