filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor refactor

Browse Source
This commit is contained in:
Filip Graliński 2019-01-10 10:00:51 +01:00
parent 212457077f
commit 13f9629cbc
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/GEval/BLEU.hs
View File

@ -55,11 +55,6 @@ precisionCount refs = sum . map (lookFor refs) . MS.toOccurList . MS.fromList
upToTetragrams :: [a] -> ([a], [(a, a)], [(a, a, a)], [(a, a, a, a)]) upToTetragrams :: [a] -> ([a], [(a, a)], [(a, a, a)], [(a, a, a, a)])
upToTetragrams l = (l, bigrams l, trigrams l, tetragrams l) upToTetragrams l = (l, bigrams l, trigrams l, tetragrams l)
bigrams :: [a] -> [(a, a)]
bigrams [] = []
bigrams [_] = []
bigrams u = zip u $ tail u
trigrams :: [a] -> [(a, a, a)] trigrams :: [a] -> [(a, a, a)]
trigrams [] = [] trigrams [] = []
trigrams [_] = [] trigrams [_] = []

5
src/GEval/Common.hs
View File

@ -53,3 +53,8 @@ whitespace = many1 (satisfy isHorizontalSpace)
indicator :: Bool -> Double indicator :: Bool -> Double
indicator True = 1.0 indicator True = 1.0
indicator False = 0.0 indicator False = 0.0
bigrams :: [a] -> [(a, a)]
bigrams [] = []
bigrams [_] = []
bigrams u = zip u $ tail u