thinkbeforecoding

//------------------------------------------
let title = "Functional Event Sourcing"
let speaker = "Jérémie Chassaing"
let company = "d-edge / Availpro Hospitality Tech"

let twitter = @"thinkb4coding"
let blog = "https://thinkbeforecoding.com"
//------------------------------------------
System.Environment.CurrentDirectory <- __SOURCE_DIRECTORY__
#load ".paket/load/netstandard2.0/main.group.fsx"

thinkbeforecoding

open System


// this is our basis to define values over time.
// It will be the basis for our data.
// we define a Period with a start and en Time
// start is included, end is excluded (closed on the left, open on the right)
// this way, of consecutive periods px and py we known that px.End = py.Start
type Period = { Start: DateTime; End: DateTime }

thinkbeforecoding

open System

type LicencePlate = LicencePlate of string

module LicencePlate =
    open System.Text.RegularExpressions

    let plateEx = Regex @"^[0-9]{3}-[0-9]{3}$" 

    let parse input =

thinkbeforecoding

|        Method |     Mean |   Error |  StdDev | Ratio | RatioSD |
|-------------- |---------:|--------:|--------:|------:|--------:|
|       UseSpan | 241.7 ns | 2.98 ns | 2.64 ns |  1.00 |    0.00 |
| UseCollection | 403.4 ns | 5.58 ns | 5.22 ns |  1.67 |    0.03 |

thinkbeforecoding

/// +--------------------------------------+
/// |                                      |
/// |               Decider                |
/// |                                      |
/// |           Jérémie Chassaing          |
/// |             @thinkb4coding           |
/// +--------------------------------------+


// A decider is a structure define by 7 parameters:

thinkbeforecoding

#r "nuget: Yzl"
open Yzl.Core

let stages  = Yzl.seq "stages" << Yzl.liftMany  
let stage = Yzl.str "stage"
let job (name: string) = Yzl.map name
let tags = Yzl.seq "tags" << Yzl.liftMany
let image = Yzl.str "image" 
let script = Yzl.seq "script" << Yzl.liftMany 
let variables vs  = "variables" .=  [for k,v in vs -> k .= v]

thinkbeforecoding

open System

type Machine =
    { program: string
      data: byte[]
      ip: int
      dp: int
      output: string
    }