ptrelford

[<AutoOpen>]
module Utils =
    /// Generate a random integer within [a, b]
    let randomInt =
        let rand = System.Random()
        fun (a,b) -> a + rand.Next(b-a+1)

type Action = Left = 0 | Right = 1 | Up = 2 | Down = 3

type Program(numStates, numSymbols, mapWidth, mapHeight) =

ptrelford

/// Processing style vector type
/// See http://processing.org/reference/PVector.html
type PVector(x:float,y:float) =
    new(x:int,y:int) = PVector(float x,float y)
    member val X = x with get,set
    member val Y = y with get,set 
    member vector.Mag() : float =
        sqrt(x * x + y * y)
    member vector.Normalize() : unit =
        let length = vector.Mag()

ptrelford

Feature: As a writer I like to use bullet points

Scenario: Writing lists with bullets
  Given a list of bullet points:
   * 1,2
   * 2,3
   * 3,4

ptrelford

module ``Foq cannot explicitly return an F# type as null``

open System
open Foq

// Discriminated Unions

type TimeInForce = GoodTillCancel | GoodTillDate of DateTime

type IOrder =

ptrelford

// Type abbreviations
type label = string
type identifier = string
type index = int
type HashTable<'k,'v> = System.Collections.Generic.Dictionary<'k,'v>
/// Small Basic arithmetic operation
type arithmetic = Add | Subtract | Multiply | Divide
/// Small Basic comparison operaton
type comparison = Eq | Ne | Lt | Gt | Le | Ge
/// Small Basic logical operation

ptrelford

type Result = Success | Failure | Running

type Behavior =
    | Action of (unit -> Result)
    | Selector of Behavior list
    | Sequence of Behavior list
   
let rec behave = function
    | Action f -> f () 
    | Selector xs -> select xs      

ptrelford

// Start in VS: View -> Other Windows -> F# Interactive

open System

// Turn on timing in F# interactive
#time

// Performance bottle kneck
let formatKey (a:string,b:string) = 
   String.Format("{0}:{1}", a, b)

ptrelford

using System;
using System.Collections.Generic;
using System.IO;
using System.Net;

namespace DashboardApp
{
   public static class Yahoo
   {
      public static IEnumerable<object> GetPrices(string stock)

ptrelford

#r "System.Windows.Forms.DataVisualization.dll"
#r @"..\packages\FSharp.Charting.0.90.7\lib\net40\FSharp.Charting.dll"
#r @"..\packages\FSharp.Data.2.0.14\lib\net40\FSharp.Data.dll"

open FSharp.Data
open FSharp.Charting

let wb = WorldBankData.GetDataContext()
type Indicator = Runtime.WorldBank.Indicator
type Indicators = WorldBankData.ServiceTypes.Indicators

ptrelford

// AST for GO lang
type packageName = string
type typeName = string
type name = string
type typ = string
type value =
   | Bool of bool
   | Int of int
   | Float64 of double
   | String of string