OnorioCatenacci

#Adjust these values for your own installation.
Set-Variable -Name defaultDirectory -option Readonly -value "c:/mydev"
Set-Variable -Name defaultRepository -option Readonly -value "myrepo"
Set-Variable -Name defaultBranch -option Readonly -value "workbranch"

#Per "Everyday git-aliases", do a rebase as opposed to a merge
function gpurr($repository=$defaultRepository, $branch=$defaultBranch)
{
  & 'git' pull --rebase $repository $branch
}

OnorioCatenacci

#nowarn "62"

//Note this is running on Win7 x64 but git is 32 bit.

let pathEnvVar = "Path"
let gitBin = @"\Program Files (x86)\Git\bin"
let st2Bin = @"\Program Files\Sublime Text 2"
let currentPath = System.Environment.GetEnvironmentVariable(pathEnvVar)
let modifiedPath = gitBin ^ ";" ^ st2Bin ^ ";" ^ currentPath
System.Environment.SetEnvironmentVariable (pathEnvVar,modifiedPath)

OnorioCatenacci

#11 November 2011
#ExecFsx.ps1
#Onorio Catenacci

#Insure we get all the error checking from Powershell itself that we can
set-strictmode -version latest

#Set this to point at the location of fsi.exe on your machine.
set-variable -name fsi -value """$env:ProgramFiles\Microsoft F#\v4.0\fsi.exe""" -option constant
#This is where I put all of my .fsx files. Change this to your favorite location

OnorioCatenacci

(*
* Filter a specified file into a second file
* Onorio Catenacci
* 21 October 2011
*)
#r "System.dll"

open System.IO

//Remember:

OnorioCatenacci

module measures

type ILinear =
  interface 
  end


[<Measure>] type inch =

OnorioCatenacci

// Copy/paste this into the FSI to see what it does. 
open System

let a = [|"a";"b";"c";"d"|]

let randstring (arr:string[]) =
   let r = new Random()
   arr.[r.Next(arr.Length)]

let resultstring = randstring a;;

OnorioCatenacci

(* Borrowed very liberally from

https://blogs.msdn.com/b/jomo_fisher/archive/2010/03/06/neat-samples-f-freebase-and-dgml.aspx

and

http://cs.hubfs.net/forums/permalink/11096/11096/ShowThread.aspx#11096

Many thanks to both those posters for giving me 99% of the starting code