adamchester

#I @"packages/"
#r @"FSharp.Data/lib/net40/FSharp.Data.dll"
#load @"FSPlot\FsPlotBootstrap.fsx"
#r @"Deedle\lib\net40\Deedle.dll"
do fsi.AddPrinter(fun (printer:Deedle.Internal.IFsiFormattable) -> "\n" + (printer.Format()))

open FSharp.Data
 
type Tweets = CsvProvider<"fsharp_2013-2014.csv">

adamchester

open System

type WeekOf<'T> = { Mo:'T; Tu:'T; We:'T; Th:'T; Fr:'T; Sa:'T; Su:'T }
    with
        static member FromDays (allDays: (DayOfWeek * 'T)[]) =
            let dayFor theDay = snd (allDays |> Array.find (fun (day, data) -> day = theDay))
            { Mo = dayFor DayOfWeek.Monday
              Tu = dayFor DayOfWeek.Tuesday
              We = dayFor DayOfWeek.Wednesday
              Th = dayFor DayOfWeek.Thursday

adamchester

type State = Initial | Draft | PendingApproval | Approved | Cancelled | Completed
type Action = Create | Cancel | SendForApproval | Approve | Reject | Complete
type Role = Creator | Approver | Completor
type Transition = { Action:Action; From:State; To:State; Roles:Role list }
module Transitions =
    let create      = { Action=Create;          From=Initial;         To=Draft;           Roles=[ Creator   ] }
    let cancel      = { Action=Cancel;          From=Draft;           To=Cancelled;       Roles=[ Creator   ] }
    let sendForAppr = { Action=SendForApproval; From=Draft;           To=PendingApproval; Roles=[ Creator   ] }
    let approve     = { Action=Approve;         From=PendingApproval; To=Approved;        Roles=[ Approver  ] }
    let reject      = { Action=Reject;          From=PendingApproval; To=Draft;           Roles=[ Approver  ] }

adamchester

[<AutoOpen>]
module Workflow =
    type State = Initial | Draft | PendingApproval | Approved | Cancelled | Completed
    type Action = Create | Cancel | SendForApproval | Approve | Reject | Complete
    type Role = Creator | Approver | Completor
    type Transition = { Action:Action; From:State; To:State; Roles:Role list }
    module Transitions =
        let create      = { Action=Create;          From=Initial;         To=Draft;           Roles=[ Creator   ] }
        let cancel      = { Action=Cancel;          From=Draft;           To=Cancelled;       Roles=[ Creator   ] }
        let sendForAppr = { Action=SendForApproval; From=Draft;           To=PendingApproval; Roles=[ Creator   ] }

adamchester

Keybase proof

I hereby claim:

• I am adamchester on github.
• I am adamchester (https://keybase.io/adamchester) on keybase.
• I have a public key whose fingerprint is 6573 51C0 41D2 58D2 9BE8 83F1 835B 3087 94D3 EC6F

To claim this, I am signing this object:

adamchester

// Step 0. Boilerplate to get the paket.exe tool
open System
open System.IO
 
Environment.CurrentDirectory <- __SOURCE_DIRECTORY__

if not (File.Exists "paket.exe") then
    let url = "https://github.com/fsprojects/Paket/releases/download/0.31.5/paket.exe"
    use wc = new Net.WebClient()
    let tmp = Path.GetTempFileName()

adamchester

#r "./bin/NoSpecimenNewInst/lib/net40/Ploeh.AutoFixture.dll"
printfn "%A" typeof<Ploeh.AutoFixture.Fixture>.AssemblyQualifiedName
let createWithNoSpecNewInst<'T> =
    let fixture = Ploeh.AutoFixture.Fixture()
    fun () -> fixture.Create(typeof<'T>, Ploeh.AutoFixture.Kernel.SpecimenContext(fixture)) :?> 'T

#r "./bin/NoSpecimenSingleton/lib/net40/Ploeh.AutoFixture.dll"
printfn "%A" typeof<Ploeh.AutoFixture.Fixture>.AssemblyQualifiedName
let noSpecimenSingleton = typeof<Ploeh.AutoFixture.Kernel.NoSpecimen>

adamchester

BenchmarkDotNet-Dev=v0.9.1.0+
OS=Microsoft Windows NT 6.2.9200.0
Processor=Intel(R) Core(TM) i7-4980HQ CPU @ 2.80GHz, ProcessorCount=8
Frequency=10000000 ticks, Resolution=100.0000 ns, Timer=HPET
HostCLR=MS.NET 4.0.30319.42000, Arch=64-bit RELEASE [RyuJIT]
JitModules=clrjit-v4.6.1063.1

Type=NoSpec  Mode=Throughput  Platform=AnyCpu  
Framework=V45 TargetCount=10 

adamchester

// Converted to F# from https://gist.github.com/davidfowl/8939f305567e1755412d6dc0b8baf1b7
module Analogy =
    type ASetOfApis = unit -> unit

    // Each interface represents a target framework and methods represents groups of APIs available on that target framework. 
    // The goal is to show the relationship between .NET Standard API surface and other .NET platforms

    // .NET Standard

adamchester

type ASetOfApis = unit->unit

module ApiSets =
    type Primatives             = ASetOfApis
    type Reflection             = ASetOfApis
    type Tasks                  = ASetOfApis
    type Collections            = ASetOfApis
    type Linq                   = ASetOfApis
    type ConcurrentCollections  = ASetOfApis