Switch to elm-bench

benchmarks/elm.json

@@ -9,30 +9,26 @@
         "direct": {
             "elm/browser": "1.0.2",
             "elm/core": "1.0.5",
-            "elm/html": "1.0.0",
+            "elm/json": "1.1.4",
+            "elm/random": "1.0.0",
             "elm/regex": "1.0.0",
-            "elm-explorations/benchmark": "1.0.2",
-            "lue-bird/elm-alternative-benchmark-runner": "1.0.0"
+            "elm-explorations/test": "2.2.1",
+            "gampleman/elm-bench": "1.1.0"
         },
         "indirect": {
             "BrianHicks/elm-trend": "2.1.3",
-            "avh4/elm-color": "1.0.0",
-            "elm/json": "1.1.3",
+            "elm/bytes": "1.0.8",
+            "elm/html": "1.0.1",
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",
-            "elm/virtual-dom": "1.0.3",
-            "mdgriffith/elm-ui": "1.1.8",
+            "elm/virtual-dom": "1.0.5",
+            "elm-explorations/benchmark": "1.0.2",
             "mdgriffith/style-elements": "5.0.2",
-            "miniBill/elm-ui-with-context": "1.1.0",
             "robinheghan/murmur3": "1.0.0"
         }
     },
     "test-dependencies": {
-        "direct": {
-            "elm-explorations/test": "1.2.2"
-        },
-        "indirect": {
-            "elm/random": "1.0.0"
-        }
+        "direct": {},
+        "indirect": {}
     }
 }

benchmarks/src/Array/Extra/Intersperse.elm

@@ -7,7 +7,7 @@ import Array.Extra
 withPush : a -> Array a -> Array a
 withPush separator =
     \array ->
-        case array |> Array.get ((array |> Array.length) - 1) of
+        case Array.get (Array.length array - 1) array of
             Nothing ->
                 Array.empty
 
@@ -22,7 +22,7 @@ withPush separator =
                     beforeLastInterspersed =
                         array
                             |> Array.Extra.pop
-                            |> Array.foldr step Array.empty
+                            |> Array.foldl step Array.empty
                 in
                 beforeLastInterspersed |> Array.push last
 

benchmarks/src/Array/Extra/MapToList.elm

@@ -9,7 +9,8 @@ withFoldr alter =
         array
             |> Array.foldr
                 (\element soFar ->
-                    soFar |> (::) (element |> alter)
+                    soFar
+                        |> (::) (element |> alter)
                 )
                 []
 

benchmarks/src/Array/Extra/Reverse.elm

@@ -12,7 +12,7 @@ withCons =
 withPush : Array a -> Array a
 withPush =
     \array ->
-        array |> Array.foldl Array.push Array.empty
+        array |> Array.foldr Array.push Array.empty
 
 
 withListReverse : Array a -> Array a