ohlawdie

open System.Drawing

let (|RGB|) (col : System.Drawing.Color) =
     ( col.R, col.G, col.B )

let (|HSB|) (col : System.Drawing.Color) =
   ( col.GetHue(), col.GetSaturation(), col.GetBrightness() )

let printRGB (col: System.Drawing.Color) =
   match col with

ohlawdie

namespace global
open System
open System.Linq
namespace ExploreCsharpEight
type IndicesAndRanges() =
    member val private words = [|"The"; "quick"; "brown"; "fox"; "jumped"; "over"; "the"; "lazy"; "dog"|] with get, set
    member this.Syntax_LastIndex() = 
        Console.WriteLine (sprintf "The last word is %O" this.words.[(int (* ERROR UnknownPrefixOperator "^" *))])
        0
    member this.Syntax_Range() = 

ohlawdie

namespace global

namespace ConsumerVehicleRegistration
type Car() =
    member val Passengers = Unchecked.defaultof<int> with get, set
namespace CommercialRegistration
type DeliveryTruck() =
    member val GrossWeightClass = Unchecked.defaultof<int> with get, set
namespace LiveryRegistration
type Taxi() =

ohlawdie

namespace global
open System
open System.Collections.Generic
open System.Threading.Tasks
namespace ExploreCsharpEight
type AsyncStreams() =
    member this.GenerateSequence() = 
        do 
            let mutable (i : int) = 0
            while (i < 20) do

ohlawdie

namespace global
open System
open System.Collections.Generic
open System.Linq
open System.Text
open System.Threading.Tasks
open System.IO
open System.Diagnostics
namespace File_Encoder
type Encoder() =

ohlawdie

namespace global
open System
open System.Collections.Generic
open System.Linq
open System.Text
open System.Threading.Tasks
open System.IO
open System.Diagnostics
namespace File_Encoder
type Program() =

ohlawdie

type ConstructionAttribute(singleInstance : bool) =
    inherit System.Attribute()
    member this.IsSingleton = singleInstance

let singletons = new System.Collections.Generic.Dictionary<System.Type,obj>()
let make() : 'a =
    let newInstance() = System.Activator.CreateInstance<'a>()
    let attributes = typeof<'a>.GetCustomAttributes(typeof<ConstructionAttribute>, true)
    let singleInstance =
        if attributes.Length > 0 then

ohlawdie

type DealResult = {
    Card : Card option
    Deck : Deck
}

let dealACard deck =
    match deck with
    | [] -> { Card = None; Deck = deck }
    | card::restOfDeck -> { Card = Some card; Deck = restOfDeck }

ohlawdie

#r "System.Data.Linq" 

open System
open System.Reflection
open System.ComponentModel
open System.Linq.Expressions
open Microsoft.FSharp.Reflection
open Microsoft.FSharp.Quotations

module FSharpType = 

ohlawdie

let Cache (reader: 'key -> 'value) max = 
        let cache = new Dictionary<'key,LinkedListNode<'key * 'value>>()
        let keys = new LinkedList<'key * 'value>()

        fun (key : 'key) -> ( 
                              let found, value = cache.TryGetValue key
                              match found with
                              |true ->
                                  keys.Remove value
                                  keys.AddFirst value |> ignore