squiggle/src/utility/GuesstimatorDist.re

let normal = (mean: float, std: float) =>
  Js.Float.(
    {
      let nMean = toPrecisionWithPrecision(mean, ~digits=4);
      let nStd = toPrecisionWithPrecision(std, ~digits=2);
      {j|normal($(nMean), $(nStd))|j};
    }
  );

let logNormal = (mean: float, std: float) => {
  Js.Float.(
    {
      let nMean = toPrecisionWithPrecision(Js.Math.log10(mean), ~digits=4);
      let nStd = toPrecisionWithPrecision(Js.Math.log10(std), ~digits=2);
      {j|lognormal($(nMean), $(nStd))|j};
    }
  );
};

let divide = (str1: string, str2: string) => {j|$(str1)/$(str2)|j};
let min = (str1: string, str2: string) => {j|min($(str1),$(str2))|j};