make lint happy

Value: [1e-9 to 1e-5]
This commit is contained in:
Quinn Dougherty 2022-05-02 11:55:42 -04:00
parent e2762a0f62
commit d595285078
6 changed files with 14 additions and 10 deletions

View File

@ -230,8 +230,9 @@ module T = Dist({
} }
let logScore = (base: t, reference: t) => { let logScore = (base: t, reference: t) => {
combinePointwise(~fn=PointSetDist_Scoring.LogScoring.logScore, base, reference) combinePointwise(~fn=PointSetDist_Scoring.LogScoring.logScore, base, reference) |> E.R2.bind(
|> E.R2.bind(integralEndYResult) integralEndYResult,
)
// |> (r => Ok(r)) // |> (r => Ok(r))
} }
}) })

View File

@ -44,7 +44,11 @@ let combinePointwise = (
t2: t, t2: t,
): result<t, 'e> => { ): result<t, 'e> => {
let reducedDiscrete = let reducedDiscrete =
[t1, t2] |> E.A.fmap(toDiscrete) |> E.A.O.concatSomes |> Discrete.reduce(~integralSumCachesFn, fn) |> E.R.toExn("foo") [t1, t2]
|> E.A.fmap(toDiscrete)
|> E.A.O.concatSomes
|> Discrete.reduce(~integralSumCachesFn, fn)
|> E.R.toExn("foo")
let reducedContinuous = let reducedContinuous =
[t1, t2] [t1, t2]

View File

@ -212,9 +212,8 @@ let dispatchToGenericOutput = (call: ExpressionValue.functionCall): option<
a, a,
)->Some )->Some
| ("normalize", [EvDistribution(dist)]) => Helpers.toDistFn(Normalize, dist) | ("normalize", [EvDistribution(dist)]) => Helpers.toDistFn(Normalize, dist)
| ("logScore", [EvDistribution(a), EvDistribution(b)]) => Some( | ("logScore", [EvDistribution(a), EvDistribution(b)]) =>
runGenericOperation(FromDist(ToScore(LogScore(b)), a)), Some(runGenericOperation(FromDist(ToScore(LogScore(b)), a)))
)
| ("isNormalized", [EvDistribution(dist)]) => Helpers.toBoolFn(IsNormalized, dist) | ("isNormalized", [EvDistribution(dist)]) => Helpers.toBoolFn(IsNormalized, dist)
| ("toPointSet", [EvDistribution(dist)]) => Helpers.toDistFn(ToPointSet, dist) | ("toPointSet", [EvDistribution(dist)]) => Helpers.toDistFn(ToPointSet, dist)
| ("scaleLog", [EvDistribution(dist)]) => | ("scaleLog", [EvDistribution(dist)]) =>