msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

another sorting gives better recall in compound analysis in morphodict

Browse Source
This commit is contained in:
aarneranta
2020-03-03 12:04:27 +01:00
parent 58ebc9234a
commit 69f2ae9794
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/morphodict/MkMorphodict.hs
View File

@@ -97,8 +97,10 @@ mkMorphoDict env =
renames fls = [(mkFun (init f ++ [show i,last f]),l) | (i,(f,l)) <- zip [1..] fls] renames fls = [(mkFun (init f ++ [show i,last f]),l) | (i,(f,l)) <- zip [1..] fls]
findCompounds = getCompounds . sortOn cat_revforms findCompounds = getCompounds . sortOn cat_orthrevforms
cat_orthrevforms (_,(cat,_:forms)) = (cat,[map (!!i) fss | let fss = map reverse forms, i <- [0..minimum (map length fss) - 1]])
cat_revforms (_,(cat,_:forms)) = (cat,map reverse forms) cat_revforms (_,(cat,_:forms)) = (cat,map reverse forms)
revstem = head . snd . cat_revforms revstem = head . snd . cat_revforms
wforms (_,(_,_:forms)) = forms wforms (_,(_,_:forms)) = forms