Skip to content

Instantly share code, notes, and snippets.

View cbilson's full-sized avatar

Chris Bilson cbilson

73 followers · 44 following
View GitHub Profile
@cbilson
cbilson / FX_Hedge.fs
Created December 27, 2008 23:10
#light
type Currency = { Code : string; Name : string; }
type Money = { Amount : float; Currency : Currency }
type Asset =
| Equity of string * Money
| FixedIncome of string * Money
| Cash of Money
@cbilson
cbilson / gist:43991
Created January 6, 2009 21:07
#light
let rec printList xs =
match xs with
| [] -> printfn ""
| [x] -> printf "%d" x
printList []
| x :: xs -> printf "%d, " x
printList xs
@cbilson
cbilson / gist:44498
Created January 7, 2009 23:31
public static IEnumerable<T> As<T>(this IEnumerable genericEnumerable) {
foreach (T item in genericEnumerable)
yield return item;
}
@cbilson
cbilson / Polynomials.fs
Created January 12, 2009 20:59
#light
(*
Translating some functions in the Polynomials chapter of
"The Haskell Road to Logic Maths and Programming"
(chapter 9)
http://fldit-www.cs.uni-dortmund.de/~peter/PS07/HR.pdf
*)
let N = Seq.init_infinite (fun x -> x)
@cbilson
cbilson / UnitTestExampleForJustin.fs
Created January 13, 2009 12:22
#light
namespace SqlFuckTests
open NUnit.Framework
// Didn't find the extension methods you referenced, so made these
module Extensions =
type System.Object with
member this.ShouldBeOfType (a:System.Type) : unit =
@cbilson
cbilson / Polynomials.hs
Created January 13, 2009 13:28
module Polynomials
where
difs :: [Integer] -> [Integer]
difs [] = []
difs [n] = []
difs (n:m:ks) = m-n : difs (m:ks)
difLists :: [[Integer]]->[[Integer]]
@cbilson
cbilson / ForGuymon.sql
Created January 13, 2009 15:58
use Broker_Recon_Data
go
begin transaction
select
*
from
Broker_Recon_Data.dbo.t_Bond_Reference
WHERE
@cbilson
cbilson / gist:48438
Created January 17, 2009 20:03
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!-- Trying to make a build file for a pure (no-xaml) f# silverlight application -->
<PropertyGroup>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
<SchemaVersion>2.0</SchemaVersion>
<NoStdLib>true</NoStdLib>
<NoStdCfg>true</NoStdCfg>
@cbilson
cbilson / gist:51108
Created January 23, 2009 17:47
select
position.BrokerAccount
, position.Contract
, contractDetails.Future_Index_Contracts as Name
, contractDetails.Market_Sector_Code as MarketSectorCode
, position.Currency
, contract.BloombergTicker
, Sum(position.Quantity) as Quantity
from
( select
@cbilson
cbilson / gist:57821
Created February 3, 2009 23:19
public void GetSql() {
var cfg = new NHibernate.Cfg.Configuration();
SessionFactoryManager.Configurers.Get("fx").ConfigureProperties(cfg);
SessionFactoryManager.Models.Get("fx").Configure(cfg);
var exporter = new SchemaExport(cfg);
CancelView();
Response.Write("<html><body>");
exporter.Create(x => Response.Write("<br /><pre>" + x + "</pre>"), false);
Response.Write("</body></html>");