started DictionaryMlt and TopDictionaryMlt by copying LexiconMlt and StructuralMlt

This commit is contained in:
aarne
2015-05-28 11:32:26 +00:00
parent 6335a44f9b
commit 6adc5db14b
3 changed files with 8117 additions and 1 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 Tha"
langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Mlt Spa Swe Tha"
-- apply a function to every line, changing it to a list
changeLinesLang :: (String -> [String]) -> String -> IO ()