isaacabraham

type Position =
| Property of string // name of the property
| Station of string  // name of the station
| Chance
| CommunityChest
| FreeParking
| GoToJail
| Jail
| Tax of int         // amount of tax

isaacabraham

let printName position =
   match position with
   | Property(propertyName) -> sprintf "Property '%s'" propertyName // prints "Property 'Old Kent Road'"
   | Tax(amount) -> sprintf "Tax of £%d" amount // prints "Tax of £100"
   | CommunityChest -> sprintf "Community Chest"
   // etc..

isaacabraham

let calculateMove position =
   match position with
   | GoToJail -> Some Jail // option type - some Position, in this case Jail
   | Chance -> randomChancePosition // draws a random Chance card which may or may not be a movement card  
   | CommunityChest -> randomCommunityChestPosition // as above
   | _ -> None // return nothing back

isaacabraham

let roll currentPosition dice =
    let position = currentPosition |> moveBy dice // return new position, do not mutate current position
    printfn "Landed on %s" (printName position)
    match calculateMove position with
    | Some(movedTo) -> printfn "Moved to %s" (printName movedTo)
                       movedTo
    | None -> position

isaacabraham

module MachineLearning 

open System
open System.IO

let public TRAINING_DATA = "digitssample.csv";
let public LIVE_DATA = "digitscheck.csv"

type RawScribble = { Number:int; Pixels:int[] }
type Scribble = { Number:int; PixelData:int[][] }

isaacabraham

let createAgent() =
    let tokenSource = new System.Threading.CancellationTokenSource()
    Agent.Start((fun inbox -> async {
        printfn "spun up a new agent..."
        while true do
            let! data = inbox.Receive()
            let! result = // Do some async work here...
            match result with
            // Everything done, we can cancel
            | AllDone -> printfn "completed!"

isaacabraham

// Raw Add method
public static int Add(Tuple<int, int> numbers)
{
    return numbers.Item1 + numbers.Item2;
}

static void Main(string[] args)
{
  // Memoized version of Add
  var add = Memoize<Tuple<int, int>, int>(Add);

isaacabraham

// Raw add function
let add (x,y) = x + y

// Memoized version
let add = memoize add

add (5,10) // Adding (5,10) to cache
add (5,10) // Cache hit for (5,10)

isaacabraham

using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Linq;
using System.Net;
using System.Text;
using System.Threading;
using System.Threading.Tasks;

namespace ConsoleApplication1

isaacabraham

public interface Service
{
    OtherService GetOtherService();
}

public interface OtherService
{
    Int32 GetNumber();
}