@explorable-viz/fluid 0.7.77 → 0.7.79

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@explorable-viz/fluid",
-  "version": "0.7.77",
+  "version": "0.7.79",
   "description": "Fluid is an experimental programming language which integrates a bidirectional dynamic analysis to connect outputs to data sources in a fine-grained way. Fluid is implemented in PureScript and runs in the browser.",
   "main": "index.js",
   "repository": {

package/dist/fluid/fluid/lib/dtw.fld

@@ -1,47 +0,0 @@
-let nextIndices n m window =
-  [(i, j) | i <- [1 .. n],
-            j <- [max 1 (i - window) .. min m (i + window)]];
-
-let costMatrixInit rows cols window =
-    [| let initV = if ((n == 1) `and` (m == 1)) `or` ((abs n m <= window) `and` not ((n == 1) `or` (m == 1)))
-                   then FNum 0
-                   else Infty
-        in initV | (n, m) in (rows, cols) |];
-
-let minAndPrev (i, j) im1 jm1 ijm1 =
-  let minim = minimal [im1, jm1, ijm1] in
-      if minim `eq` im1 then
-          ((i, j + 1), minim)
-      else
-          if minim `eq` jm1 then
-              ((i + 1, j ), minim)
-          else ((i, j), minim);
-
-let extractPath indmatrix (n, m) accum =
-    if (n == 1) `and` (m == 1)
-    then accum
-    else
-        extractPath indmatrix (indmatrix!(n, m)) ((n - 1, m - 1) : accum);
-
-let localMinUpdate seq1 seq2 cost (costmatrix, indmatrix) (i, j) =
-    let iEntr = nth (i - 1) seq1;
-        jEntr = nth (j - 1) seq2;
-        dist = cost iEntr jEntr;
-        ip = i + 1;
-        jp = j + 1;
-        im1 = costmatrix!(i , jp);
-        jm1 = costmatrix!(ip, j);
-        im1jm1 = costmatrix!(i, j);
-        (prev, FNum minim) = minAndPrev (i, j) im1 jm1 im1jm1;
-        newVal = FNum (dist + minim)
-    in (matrixUpdate costmatrix (ip, jp) newVal, matrixUpdate indmatrix (ip, jp) prev);
-
-let computeDTW seq1 seq2 cost window =
-  let n = length seq1;
-      m = length seq2;
-      initD = costMatrixInit (n + 1) (m + 1) window;
-      initI = [| 0 | (i,j) in (n + 1, m + 1)|];
-      indexing = nextIndices n m window;
-      (finished, indices) = foldl (localMinUpdate seq1 seq2 cost) (initD, initI) indexing
-  in
-  (finished, extractPath indices (n + 1, m + 1) Nil);

package/dist/fluid/fluid/lib/fnum.fld

@@ -1,22 +0,0 @@
-let comp Infty Infty = EQ;
-    comp Infty (FNum y) = GT;
-    comp (FNum x) Infty = LT;
-    comp (FNum x) (FNum y) = compare x y;
-
-let fmin x y =
-    match comp x y as {
-        LT -> x;
-        EQ -> x;
-        GT -> y
-    };
-
-let minimal = foldl1 fmin;
-
-let add Infty _ = Infty;
-    add (FNum x) Infty = Infty;
-    add (FNum x) (FNum y) = FNum (x + y);
-
-let eq Infty Infty = True;
-    eq Infty (FNum x) = False;
-    eq (FNum x) Infty = False;
-    eq (FNum x) (FNum y) = x == y;

package/dist/fluid/fluid/lib/some-constants.fld

@@ -1 +0,0 @@
-let x = 1;

package/dist/fluid/fluid/lib/text-viz.fld

@@ -1,18 +0,0 @@
-let likelihoodMap table prob = (fromSome (find (fun x -> x.prob <= prob) table)).msg;
-
-let mkPercent num = (numToStr (num * 100)) ++ "%";
-
-let leqP n m =
-    if n <= m
-    then "less"
-    else "more";
-
-let gradedLeqP n m =
-    let ratio = n / m
-    in if ratio <= 1.0
-        then if ratio <=0.5
-            then "much less"
-            else "less"
-        else if ratio >= 2.0
-            then "much more"
-            else "more";