From 43ddb41d314e7d547fa8f8bb1cd23397dfa30f65 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 3 Jan 2008 11:22:44 +0000 Subject: word lists initialized for 2 experiments --- examples/uusisuomi/MkLex.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'examples/uusisuomi/MkLex.hs') diff --git a/examples/uusisuomi/MkLex.hs b/examples/uusisuomi/MkLex.hs index 77b8beb4a..8bfaa3944 100644 --- a/examples/uusisuomi/MkLex.hs +++ b/examples/uusisuomi/MkLex.hs @@ -18,6 +18,10 @@ main = do --tgt = "NSK" src = "correct-Omat.txt" tgt = "Omat" +--src = "aino.txt" +--tgt = "Aino" +--src = "duodecim.txt" +--tgt = "Duodecim" initiate i = mapM_ putStrLn [ "--# -path=.:alltenses", @@ -83,3 +87,18 @@ mkLex 4 line = case words line of "\" \"" ++ sanaa ++ "\" \"" ++ sanoja ++ "\" ;" _ -> return () + +-- to initiate from a noun list + +mkLex 11 line = case words line of + _:"--":_ -> return () + num:sana0:_ -> do + let sana = uncompound sana0 + let nimi = "n" ++ init num ++ "_" ++ sana + putStrLn $ "fun " ++ nimi ++ "_N : N ;" + putStrLn $ "lin " ++ nimi ++ "_N = mk1N \"" ++ sana ++ "\" ;" + _ -> return () + +-- from sora+tie to tie + +uncompound = reverse . takeWhile (/= '+') . reverse -- cgit v1.2.3