@explorable-viz/fluid 0.7.63 → 0.7.65

package/dist/fluid/fluid/example/slicing/linked-outputs/stacked-bar-scatter-plot.fld

@@ -1,38 +0,0 @@
-MultiView {
-   stackedBarChart:
-      let totalFor year country rows =
-         let [ row ] = [ row | row <- rows, row.year == year, row.country == country ]
-         in row.nuclearOut + row.gasOut + row.coalOut + row.petrolOut;
-      let stack year = [ { y: country, z: totalFor year country nonRenewables }
-                     | country <- ["BRA", "EGY", "IND", "JPN"] ]
-      in BarChart {
-         caption: "Non-renewables by country",
-         size: { width: 275, height: 185 },
-         stackedBars: [ { x: numToStr year, bars: stack year }
-                      | year <- [2014..2018] ]
-      },
-   scatterPlot:
-      let isCountry name x = name == x.country;
-         isYear year x = year == x.year;
-
-      let plot year countries =
-      let rens = filter (isYear year) renewables;
-            nonRens = filter (isYear year) nonRenewables;
-      let plotCountry country =
-         let rens' = filter (isCountry country) rens;
-            rensOut = sum (map (fun x -> x.output) rens');
-            rensCap = sum (map (fun x -> x.capacity) rens');
-            x = head (filter (isCountry country) nonRens);
-            nonRensCap = x.nuclearCap + x.petrolCap + x.gasCap + x.coalCap
-         in {
-            x: rensCap / (rensCap + nonRensCap),
-            y: (rensOut + x.nuclearOut) / (rensCap + x.nuclearCap)
-         }
-      in map plotCountry countries
-
-      in ScatterPlot {
-         caption: "Clean energy efficiency vs proportion of renewable energy capacity",
-         points: plot 2018 [ "BRA", "CHN", "DEU", "FRA", "EGY", "IND", "JPN", "MEX", "NGA", "USA" ],
-         labels: { x: "Renewables/TotalEnergyCap", y: "Clean Capacity Factor" }
-      }
-}

package/dist/fluid/fluid/example/slicing/list-comp-1.expect.fld

@@ -1,6 +0,0 @@
-let data = [{year : 2013, country : "China", energyType : "Bio", output : 6.2}
-          , {year : 2013, country : "China", energyType : ⸨"Hydro"⸩, output : 260}
-          , {year : 2013, country : "China", energyType : "Solar", output : 19.9}
-          , {year : 2013, country : "China", energyType : "Wind", output : 91}
-          ] in
-⸨[row.output|type <- ["Bio", ⸨"Hydro"⸩, "Solar", "Wind"], row <- data, row.energyType == type]⸩

package/dist/fluid/fluid/example/slicing/list-comp-2.expect.fld

@@ -1,6 +0,0 @@
-let data = [{year : 2013, country : "China", energyType : "Bio", output : 6.2}
-          , {year : 2013, country : "China", energyType : "Hydro", output : 260}
-          , {year : 2013, country : "China", energyType : ⸨"Solar"⸩, output : 19.9}
-          , {year : 2013, country : "China", energyType : "Wind", output : 91}
-          ] in
-⸨[row.output|type <- ["Bio", "Hydro", ⸨"Solar"⸩, "Wind"], row <- data, row.energyType == type]⸩

package/dist/fluid/fluid/example/slicing/list-comp.fld

@@ -1,8 +0,0 @@
-let data = [
-   { year: 2013, country: "China", energyType: "Bio", output: 6.2 },
-   { year: 2013, country: "China", energyType: "Hydro", output: 260 },
-   { year: 2013, country: "China", energyType: "Solar", output: 19.9 },
-   { year: 2013, country: "China", energyType: "Wind", output: 91 }
-] in
-[ row.output | type <- ["Bio", "Hydro", "Solar", "Wind"],
-               row <- data, row.energyType == type ]

package/dist/fluid/fluid/example/slicing/lookup.expect.fld

@@ -1,6 +0,0 @@
-let lookup k (Empty) = None;
-    lookup k (NonEmpty t1 (key, val) t2) = match compare k key as
-                                                {(LT) -> lookup k t1;
-                                                  (EQ) -> ⸨Some val⸩;
-                                                  (GT) -> lookup k t2} in
-lookup ⸨6⸩ (NonEmpty (NonEmpty (Empty) ((3, "USA")) (Empty)) ((4, "China")) (NonEmpty (⸨NonEmpty (Empty) (⸨(⸨6⸩, "Germany")⸩) (Empty)⸩) ((7, "UK")) (Empty)))

package/dist/fluid/fluid/example/slicing/lookup.fld

@@ -1,14 +0,0 @@
-let lookup k Empty = None;
-    lookup k (NonEmpty t1 (key, val) t2) =
-       match compare k key as {
-          LT -> lookup k t1;
-          EQ -> Some val;
-          GT -> lookup k t2
-       }
-in
-lookup 6
-   (NonEmpty
-      (NonEmpty Empty (3, "USA") Empty)
-      (4, "China")
-      (NonEmpty (NonEmpty Empty (6, "Germany") Empty) (7, "UK") Empty)
-   )

package/dist/fluid/fluid/example/slicing/map.expect.fld

@@ -1 +0,0 @@
-map ((+) 2) ⸨[⸩ 3 ⸨,⸩ 4]

package/dist/fluid/fluid/example/slicing/map.fld

@@ -1 +0,0 @@
-map ((+) 2) [3, 4]

package/dist/fluid/fluid/example/slicing/matrix-update.expect.fld

@@ -1,5 +0,0 @@
-let image' = [[15, 13, 6, 9, 16], [12, 5, 15, 4, 13], [14, 9, 20, 8, 1], [4, 10, 3, 7, 19], [3, 11, 15, 2, 9]];
-    image = [|nth2 i j image'|(i, j) in (5, 5)|];
-    index = (2, 2);
-    pair = ⸨4000⸩ in
-matrixUpdate image index pair

package/dist/fluid/fluid/example/slicing/matrix-update.fld

@@ -1,10 +0,0 @@
-let image' = [[15, 13,  6, 9, 16],
-              [12,  5, 15, 4, 13],
-              [14,  9, 20, 8,  1],
-              [ 4, 10,  3, 7, 19],
-              [ 3, 11, 15, 2,  9]];
-    image = [| nth2 i j image'
-            | (i, j) in (5, 5) |];
-    index = (2, 2);
-    pair = 4000
-in matrixUpdate image index pair

package/dist/fluid/fluid/example/slicing/multiply.expect.fld

@@ -1 +0,0 @@
-5 * (⸨0⸩ * 3)

package/dist/fluid/fluid/example/slicing/multiply.fld

@@ -1 +0,0 @@
-5 * (0 * 3)

package/dist/fluid/fluid/example/slicing/nth.expect.fld

@@ -1 +0,0 @@
-nth 1 [3, ⸨4⸩, 5]

package/dist/fluid/fluid/example/slicing/nth.fld

@@ -1 +0,0 @@
-nth 1 [3, 4, 5]

package/dist/fluid/fluid/example/slicing/output-not-source.expect.fld

@@ -1,2 +0,0 @@
-let x = ⸨3⸩ in
-(x, x < ⸨5⸩)

package/dist/fluid/fluid/example/slicing/output-not-source.fld

@@ -1 +0,0 @@
-let x = 3 in (x, x < 5)

package/dist/fluid/fluid/example/slicing/qcut.fld

@@ -1,2 +0,0 @@
-let data = mergesort [ x.changed | x <- ssp126]
-in qcut data [ 5, 50, 95 ]

package/dist/fluid/fluid/example/slicing/section-5-example-1.expect.fld

@@ -1,10 +0,0 @@
-let map f [] = [];
-    map f (x : xs) = ⸨(f x : map f xs)⸩ in
-let data = [{energyType : "Bio", output : 6.2}
-          , {energyType : ⸨"Hydro"⸩, output : 260}
-          , {energyType : "Solar", output : 19.9}
-          , {energyType : "Wind", output : 91}
-          , {energyType : "Geo", output : 14.4}
-          ];
-    output = ⸨[row.output|type <- [⸨"Hydro"⸩, "Solar", "Geo"], row <- data, row.energyType == type]⸩ in
-map (fun x = floor ((x / sum output) * 100)) output

package/dist/fluid/fluid/example/slicing/section-5-example-2.expect.fld

@@ -1,10 +0,0 @@
-let map f [] = [];
-    map f (x : xs) = (f x : map f xs) in
-let data = [{energyType : "Bio", output : 6.2}
-          , {energyType : "Hydro", output : ⸨260⸩}
-          , {energyType : "Solar", output : ⸨19.9⸩}
-          , {energyType : "Wind", output : 91}
-          , {energyType : "Geo", output : ⸨14.4⸩}
-          ];
-    output = [row.output|type <- ["Hydro", "Solar", "Geo"], row <- data, row.energyType == type] in
-map (fun x = floor ((x / sum output) * ⸨100⸩)) output

package/dist/fluid/fluid/example/slicing/section-5-example-3.expect.fld

@@ -1,10 +0,0 @@
-let map f [] = [];
-    map f (x : xs) = ⸨(f x : map f xs)⸩ in
-let data = [{energyType : "Bio", output : 6.2}
-          , {energyType : "Hydro", output : 260}
-          , {energyType : "Solar", output : 19.9}
-          , {energyType : "Wind", output : 91}
-          , {energyType : ⸨"Geo"⸩, output : 14.4}
-          ];
-    output = ⸨[row.output|type <- ["Hydro", "Solar", ⸨"Geo"⸩], row <- data, row.energyType == type]⸩ in
-map (fun x = floor ((x / sum output) * 100)) output

package/dist/fluid/fluid/example/slicing/section-5-example.fld

@@ -1,14 +0,0 @@
-let map f [] = [];
-    map f (x : xs) = f x : map f xs;
-let data = [
-   { energyType: "Bio", output: 6.2 },
-   { energyType: "Hydro", output: 260 },
-   { energyType: "Solar", output: 19.9 },
-   { energyType: "Wind", output: 91 },
-   { energyType: "Geo", output: 14.4 }
-];
-   output = [
-   row.output | type <- ["Hydro", "Solar", "Geo"],
-                row <- data, row.energyType == type
-] in
-map (fun x -> floor (x / sum output * 100)) output

package/dist/fluid/fluid/example/slicing/zeros-1.expect.fld

@@ -1,3 +0,0 @@
-let zeros [] = ⸨[]⸩;
-    zeros (x : xs) = ⸨(0 : zeros xs)⸩ in
-zeros ⸨[⸩ 1, 2 ⸨]⸩

package/dist/fluid/fluid/example/slicing/zeros-2.expect.fld

@@ -1,3 +0,0 @@
-let zeros [] = ⸨[]⸩;
-    zeros (x : xs) = (0 : zeros xs) in
-zeros [1, 2 ⸨]⸩

package/dist/fluid/fluid/example/slicing/zeros.fld

@@ -1,4 +0,0 @@
-let zeros [] = [];
-    zeros (x : xs) = 0 : zeros xs
-in
-zeros [1, 2]

package/dist/fluid/fluid/example/slicing/zipWith-1.expect.fld

@@ -1,4 +0,0 @@
-let zipWith op [] ys = [];
-    zipWith op (x : xs) [] = [];
-    zipWith op (x : xs) (y : ys) = (op x y : zipWith op xs ys) in
-zipWith (fun x y = x ** ⸨2⸩ + y ** ⸨2⸩) [2, ⸨3⸩, 4] [3, ⸨4⸩, 5, 6]

package/dist/fluid/fluid/example/slicing/zipWith.fld

@@ -1,4 +0,0 @@
-let zipWith op [] ys = [];
-    zipWith op (x : xs) [] = [];
-    zipWith op (x : xs) (y : ys) = op x y : zipWith op xs ys
-in zipWith (fun x y -> x ** 2 + y ** 2) [2, 3, 4] [3, 4, 5, 6]