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

Prettier

Browse Source
This commit is contained in:
Ozzie Gooen 2022-05-20 22:54:15 -04:00
parent 390ac2e2bb
commit 7e2437bfc0
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/squiggle-lang/src/rescript/Distributions/GenericDist.res
View File

@ -24,7 +24,6 @@ let isSymbolic = (t: t) =>
| _ => false | _ => false
} }
let sampleN = (t: t, n) => let sampleN = (t: t, n) =>
switch t { switch t {
| PointSet(r) => PointSetDist.sampleNRendered(n, r) | PointSet(r) => PointSetDist.sampleNRendered(n, r)
@ -32,7 +31,7 @@ let sampleN = (t: t, n) =>
| SampleSet(r) => SampleSetDist.sampleN(r, n) | SampleSet(r) => SampleSetDist.sampleN(r, n)
} }
let sample = (t: t) => sampleN(t, 1) -> E.A.first |> E.O.toExn("Should not have happened") let sample = (t: t) => sampleN(t, 1)->E.A.first |> E.O.toExn("Should not have happened")
let toSampleSetDist = (t: t, n) => let toSampleSetDist = (t: t, n) =>
SampleSetDist.make(sampleN(t, n))->E.R2.errMap(DistributionTypes.Error.sampleErrorToDistErr) SampleSetDist.make(sampleN(t, n))->E.R2.errMap(DistributionTypes.Error.sampleErrorToDistErr)

2
packages/squiggle-lang/src/rescript/FunctionRegistry/FunctionRegistry_Library.res
View File

@ -53,7 +53,7 @@ let more = [
Function.make( Function.make(
~name="To", ~name="To",
~definitions=[TwoArgDist.mkRegular("to", twoArgs(SymbolicDist.From90thPercentile.make))], ~definitions=[TwoArgDist.mkRegular("to", twoArgs(SymbolicDist.From90thPercentile.make))],
) ),
] ]
let allFunctions = [NormalFn.toFn, LognormalFn.toFn] let allFunctions = [NormalFn.toFn, LognormalFn.toFn]

2
packages/squiggle-lang/src/rescript/Utility/E.res
View File

@ -3,7 +3,7 @@ Some functions from modules `L`, `O`, and `R` below were copied directly from
running `rescript convert -all` on Rationale https://github.com/jonlaing/rationale running `rescript convert -all` on Rationale https://github.com/jonlaing/rationale
*/ */
let equals = (a,b) => a === b let equals = (a, b) => a === b
module FloatFloatMap = { module FloatFloatMap = {
module Id = Belt.Id.MakeComparable({ module Id = Belt.Id.MakeComparable({