quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed build

Browse Source 
Value: [1e-6 to 1e-4]
This commit is contained in:
Quinn Dougherty 2022-05-03 10:20:01 -04:00
parent 6c815a62ff
commit cec4bbd334
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/squiggle-lang/src/rescript/Distributions/PointSetDist/PointSetDist_Scoring.res
View File

@ -3,12 +3,12 @@ module LogScoring = {
let subtraction = (a, b) => Ok(a -. b) let subtraction = (a, b) => Ok(a -. b)
let logScore = (a: float, b: float): result<float, Operation.Error.t> => let logScore = (a: float, b: float): result<float, Operation.Error.t> =>
if a == 0.0 { if a == 0.0 {
Error(Operation.Error.NegativeInfinityError) Error(Operation.NegativeInfinityError)
} else if b == 0.0 { } else if b == 0.0 {
Error(Operation.Error.DivideByZeroError) Error(Operation.DivisionByZeroError)
} else { } else {
let quot = a /. b let quot = a /. b
quot < 0.0 ? Error(OperationError.ComplexNumberError) : Ok(logFn(quot)) quot < 0.0 ? Error(Operation.ComplexNumberError) : Ok(logFn(quot))
} }
let multiply = (a: float, b: float): result<float, Operation.Error.t> => Ok(a *. b) let multiply = (a: float, b: float): result<float, Operation.Error.t> => Ok(a *. b)
} }