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

Step 2

Browse Source
This commit is contained in:
Roman Galochkin 2020-02-21 15:29:25 +03:00
parent ff13b144e6
commit 36ad96d129
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/utility/lib/CDFunctor.re
View File

@ -1,7 +1,15 @@
module type Config = {let shape: DistributionTypes.xyShape;};
exception ShapeWrong(string);
module Make = (Config: Config) => {
let validateHasLength = (): bool => Array.length(Config.shape.xs) > 0;
let validateSize = (): bool =>
Array.length(Config.shape.xs) == Array.length(Config.shape.ys);
if (!validateHasLength()) {
raise(ShapeWrong("You need at least one element."));
};
if (!validateSize()) {
raise(ShapeWrong("Arrays of \"xs\" and \"ys\" have different sizes."));
};
};