Fix tests
This commit is contained in:
parent
169931be8f
commit
593871f19b
@ -45,7 +45,7 @@ allDisjoint :: Coverable b => [b] -> Bool
|
|||||||
allDisjoint [] = True
|
allDisjoint [] = True
|
||||||
allDisjoint (head:tail) = all (disjoint head) tail && allDisjoint tail
|
allDisjoint (head:tail) = all (disjoint head) tail && allDisjoint tail
|
||||||
|
|
||||||
class (Show e, EntityWithProbability e, Coverable (BareEntity e)) => CoverableEntityWithProbability e where
|
class (EntityWithProbability e, Coverable (BareEntity e)) => CoverableEntityWithProbability e where
|
||||||
precisionScore :: e -> BareEntity e -> Double
|
precisionScore :: e -> BareEntity e -> Double
|
||||||
precisionScore got expected = coveredScore (getBareEntity got) expected
|
precisionScore got expected = coveredScore (getBareEntity got) expected
|
||||||
precisionScoreTotal :: [e] -> [BareEntity e] -> Double
|
precisionScoreTotal :: [e] -> [BareEntity e] -> Double
|
||||||
|
@ -1 +1 @@
|
|||||||
foo:1-10 foo:12-20
|
foo:1-9 foo:12-19
|
||||||
|
|
@ -1 +1 @@
|
|||||||
foo:5-15
|
foo:5-14
|
||||||
|
|
@ -1,2 +1,2 @@
|
|||||||
foo:658-699
|
foo:658-698
|
||||||
foo:0-75
|
foo:0-74
|
||||||
|
|
@ -1,2 +1,2 @@
|
|||||||
foo:658-700,701-7000
|
foo:658-699 foo:701-6999
|
||||||
foo:1870-1893
|
foo:1870-1892
|
||||||
|
|
Loading…
Reference in New Issue
Block a user