Mark Lambert marklam

## Pickling.fsx
#r "nuget:FsPickler"

open System.IO
open System.Collections.Immutable
open MBrace.FsPickler

let mkPickler<'t> (resolver : IPicklerResolver) =
    let seqPickler = resolver.Resolve<'t seq> ()

    let writer (w : WriteState) (ns : ImmutableList<'t>) =

## EqualityBenchmarks.fs
namespace Benchmarks

open BenchmarkDotNet.Attributes

type SingleCaseDU = | One of int[]
type TwoCaseDU = | Empty | Full of int[]
type Record = { Values : int[] }
type [<Struct>] StructRecord = { Values : int[] }

module Custom =

## Dependencies.fsx
// How to deal with nested dependencies?

// Background : https://bartoszsypytkowski.com/dealing-with-complex-dependency-injection-in-f/

open System

// Services

type ILogger =
    abstract LogMessage : string -> unit

## PulumiFragment.fs
    let infra () =

        ...

        let openApiSpec (name, arn) =
            let quotedTitle = "\"" + name + "api\""
            let quotedUri   = sprintf "\"arn:aws:apigateway:%s:lambda:path/2015-03-31/functions/%s/invocations\"" Pulumi.Aws.Config.Region arn
            """{
  "openapi": "3.0.1",
  "info": {

## CannotRegress.csv

          
            In1
            In2
            Out

            
              15.3
              0
              1

            
              15
              0
              1

            
              3.2
              1
              1

            
              7.5
              0
              0

            
              10.2
              0
              1

            
              10.9
              0
              1

            
              14.5
              0
              0

            
              5.7
              0
              0

            
              5
              0
              1
	#r "nuget:FsPickler"

	open System.IO
	open System.Collections.Immutable
	open MBrace.FsPickler

	let mkPickler<'t> (resolver : IPicklerResolver) =
	let seqPickler = resolver.Resolve<'t seq> ()

	let writer (w : WriteState) (ns : ImmutableList<'t>) =
	namespace Benchmarks

	open BenchmarkDotNet.Attributes

	type SingleCaseDU = \| One of int[]
	type TwoCaseDU = \| Empty \| Full of int[]
	type Record = { Values : int[] }
	type [<Struct>] StructRecord = { Values : int[] }

	module Custom =
	// How to deal with nested dependencies?

	// Background : https://bartoszsypytkowski.com/dealing-with-complex-dependency-injection-in-f/

	open System

	// Services

	type ILogger =
	abstract LogMessage : string -> unit
	let infra () =

	...

	let openApiSpec (name, arn) =
	let quotedTitle = "\"" + name + "api\""
	let quotedUri = sprintf "\"arn:aws:apigateway:%s:lambda:path/2015-03-31/functions/%s/invocations\"" Pulumi.Aws.Config.Region arn
	"""{
	"openapi": "3.0.1",
	"info": {