GitHub/gf-rgl
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-28 18:13:17 -06:00
Code Issues Packages Projects Releases Wiki Activity

another sorting gives better recall in compound analysis in morphodict

Browse Source
This commit is contained in:
aarneranta committed 2020-03-03 12:04:27 +01:00
1 parent 58ebc9234a
commit 69f2ae9794
1 file changed
+4 -2
Download Patch File Download Diff File Expand all files Collapse all files
src/morphodict/MkMorphodict.hs
+4 -2
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