- {switch options {
- | Some(options) =>
- let inputs1 = SquiggleLang.ProgramEvaluator.Inputs.make(
- ~samplingInputs={
- sampleCount: Some(options.sampleCount),
- outputXYPoints: Some(options.outputXYPoints),
- kernelWidth: options.kernelWidth,
- pointSetDistLength: Some(options.downsampleTo |> E.O.default(1000)),
- },
- ~squiggleString,
- ~environment=[
- ("K", #SymbolicDist(#Float(1000.0))),
- ("M", #SymbolicDist(#Float(1000000.0))),
- ("B", #SymbolicDist(#Float(1000000000.0))),
- ("T", #SymbolicDist(#Float(1000000000000.0))),
- ]->Belt.Map.String.fromArray,
- (),
- )
-
- let distributionList = SquiggleLang.ProgramEvaluator.evaluateProgram(inputs1)
-
- let renderExpression = response1 =>
- switch response1 {
- | #DistPlus(distPlus1) =>
- | #Float(f) =>
- | #Function((f, a), env) =>
- // Problem: When it gets the function, it doesn't save state about previous commands
- let foo: SquiggleLang.ProgramEvaluator.Inputs.inputs = {
- squiggleString: squiggleString,
- samplingInputs: inputs1.samplingInputs,
- environment: env,
- }
- let results =
- E.A.Floats.range(options.diagramStart, options.diagramStop, options.diagramCount)
- |> E.A.fmap(r =>
- SquiggleLang.ProgramEvaluator.evaluateFunction(
- foo,
- (f, a),
- [#SymbolicDist(#Float(r))],
- ) |> E.R.bind(_, a =>
- switch a {
- | #DistPlus(d) => Ok((r, SquiggleLang.DistPlus.T.normalize(d)))
- | n =>
- Js.log2("Error here", n)
- Error("wrong type")
- }
- )
- )
- |> E.A.R.firstErrorOrOpen
- switch results {
- | Ok(dists) =>
- | Error(r) => r |> R.ste
- }
- }
-
- // Render the list of distributions given by the
- switch distributionList {
- | Ok(xs) =>
- let childrenElements = List.map(renderExpression, xs)
- Js.Console.log(childrenElements)
-
- {Belt.List.toArray(Belt.List.mapWithIndex(childrenElements, (i, child) => - child
))->React.array}
-
- | Error(r) => r |> R.ste
- }
- | _ => "Nothing to show. Try to change the distribution description." |> R.ste
- }}
-