GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-04 08:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

started grammar extending FreqFin with tricky clitic syntax

Browse Source
This commit is contained in:
aarne
2010-12-29 22:04:52 +00:00
parent 5d84849e70
commit 01e0dac456
5 changed files with 160 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/finnish/frequency/Freq.hs
View File

@@ -6,7 +6,8 @@ main = do
let funSet = S.fromList (map (head . words) (lines kotus))
mapM_ putStrLn $ concatMap (prEntry funSet . mkOne) $ lines src
stoplist = S.fromList ["ei","olla","ei_ihme","eikä"]
stoplist = S.fromList
["ei","olla","ei_ihme","eikä","ettei","ellei","vaikkei","muttei","miksei","jollei","jottei"]
prEntry funSet (f,c,w,p@(k,n),i) = if n == 0 then [] else [
unwords ["fun",f, " : ", c,";"],