pinyin version of ConstructionChi

2015-07-21 15:38:16 +00:00
parent 095f2c047a
commit faabf27b93
2 changed files with 124 additions and 1 deletions
@@ -7,12 +7,13 @@ main = do
  s <- readFile pinyinFile
  let m = c2pMap (mkList (words s))
  mapM_ (mkPinyin m) xx
+  putStrLn $ unwords xx
  return ()

 pinyinFile = "pinyin.txt"

 resModules = [mo | mo <- 
-                ["Extra","Lexicon", "Numeral", "Paradigms","Res", "Structural","Symbol"]
+                ["Extra","Lexicon", "Numeral", "Paradigms","Res", "Structural","Symbol", "Construction"]
             ]

 mkPinyin ma mo = do