some ChunkTha items ; subcat verbs in DictionaryTha guessed

This commit is contained in:
aarne
2015-03-10 14:54:15 +00:00
parent 35c4b5f3eb
commit 3ed8eb16ea
4 changed files with 2285 additions and 17 deletions

View File

@@ -2,7 +2,7 @@ import qualified Data.Map
import qualified Data.Set
import Data.List
langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Spa Swe"
langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Spa Swe Tha"
-- apply a function to every line, changing it to a list
changeLinesLang :: (String -> [String]) -> String -> IO ()