Adding Seq.traverse & sequence functions

.vscode/launch.json

@@ -0,0 +1,18 @@
+{
+    "version": "0.2.0",
+    "configurations": [
+        {
+            "name": "benchmarks",
+            "type": "coreclr",
+            "request": "launch",
+            "program": "${workspaceFolder}/benchmarks/bin/Release/net7.0/benchmarks.exe",
+            "args": [],
+            "env": {
+                "ASPNETCORE_ENVIRONMENT": "Development"
+            },
+            "console": "integratedTerminal",
+            "preLaunchTask": "build release",
+            "cwd": "${workspaceFolder}/benchmarks/bin/Release/net7.0/"
+        }
+    ]
+}

.vscode/settings.json

@@ -1,13 +1,11 @@
 {
     "editor.inlayHints.enabled": "off",
-    "FSharp.enableAdaptiveLspServer": true,
     "FSharp.enableMSBuildProjectGraph": true,
     "editor.formatOnSave": true,
     "FSharp.notifications.trace": false,
     "FSharp.notifications.traceNamespaces": [
         "BoundModel.TypeCheck",
         "BackgroundCompiler."
     ],
-    "FSharp.fsac.conserveMemory": true,
     "FSharp.fsac.parallelReferenceResolution": false
 }

.vscode/tasks.json

@@ -0,0 +1,18 @@
+{
+    "version": "2.0.0",
+    "tasks": [
+        {
+            "label": "build release",
+            "type": "process",
+            "command": "dotnet",
+            "args": [
+                "build",
+                "-c",
+                "Release",
+                "${workspaceFolder}/FsToolkit.ErrorHandling.sln",
+                "/property:GenerateFullPaths=true",
+                "/consoleloggerparameters:NoSummary"
+            ]
+        }
+    ]
+}

benchmarks/Program.fs

@@ -3,23 +3,26 @@ open BenchmarkDotNet.Running
 open benchmarks
 open BenchmarkDotNet.Configs
 open BenchmarkDotNet.Jobs
+open BenchmarkDotNet.Columns
 open BenchmarkDotNet.Environments
+open BenchmarkDotNet.Reports
 open FsToolkit.ErrorHandling.Benchmarks
 open ApplicativeTests
 
 [<EntryPoint>]
 let main argv =
+
     let cfg =
-        DefaultConfig
-            .Instance
+        DefaultConfig.Instance
             // .AddJob(Job.Default.WithRuntime(CoreRuntime.Core50))
-            .AddJob(Job.Default.WithRuntime(CoreRuntime.Core60))
+            .AddJob(Job.Default.WithRuntime(CoreRuntime.Core70))
+            .AddColumn(StatisticColumn.P80, StatisticColumn.P95)
+            .WithSummaryStyle(SummaryStyle.Default.WithRatioStyle(RatioStyle.Trend))
     // BenchmarkRunner.Run<EitherMapBenchmarks>() |> ignore
     // BenchmarkRunner.Run<TaskResult_BindCEBenchmarks>(cfg) |> ignore
     // BenchmarkRunner.Run<BindSameBenchmarks>() |> ignore
 
-    BenchmarkRunner.Run<Result_BindvsAndCEBenchmarks>(cfg)
+    BenchmarkRunner.Run<SeqTests.SeqBenchmarks>(cfg, argv)
     |> ignore
-    //
 
     0 // return an integer exit code