Thorium

// Mimic type classes with additional param

type 'a Num = {
    zero: 'a
    add: 'a -> 'a -> 'a
    mult: 'a -> 'a -> 'a
    fromInteger: int -> 'a }

let intNum = {
    zero = 0

Thorium

module BuilderExample
open System

//Example: nullable { ... } with combining functionality

type NullableBuilder() =
    let hasValue (a:Nullable<'a>) = a.HasValue 
    member t.Return(x) = Nullable(x)
    member t.Bind(x, rest) = 
        match hasValue x with 

Thorium

//A small sample how to use F# 3.0 Entity Framework (EF) Type Provider. Visual Studio 11 Beta (and Northwind sample database) needed. 
(*
#r "System.Data.Entity.dll"
#r "FSharp.Data.TypeProviders.dll"
*)
open System
open Microsoft.FSharp.Data.TypeProviders

module Queries =
 

Thorium

(*
You can use numeric literals, constant expressions and operator overloading to make your own arithmetics. Useful in DSL languages. 
With NumericLiterals, you can use any of Q, R, Z, I, N, G. 
Basic syntax: [Number][Letter] will forward the call to the type NumericLiteral[Letter] to FromInt32 [Number] (or FromInt64 or FromString...)
*)

//-----------------------------------------------------
//First example:

module NumericLiteralN =

Thorium

#I @"C:\Tools\System.Reactive"
#r "System.Core.dll"
#r "System.Reactive.dll"
 
type observable<'a> = System.Collections.Generic.IObservable<'a>
type observer<'a> = System.Collections.Generic.IObserver<'a>
 
module Observable =
  open System
  open System.Linq

Thorium

//#r "Microsoft.TeamFoundation.Client"
//#r "Microsoft.TeamFoundation.VersionControl.Client"
//#r "Microsoft.TeamFoundation.VersionControl.Common"
open Microsoft.TeamFoundation.Client
open Microsoft.TeamFoundation.VersionControl.Client

let tfsCheckOut filename =
    let workspaceInfo = Workstation.Current.GetLocalWorkspaceInfo filename
    let workspace = RegisteredTfsConnections.GetProjectCollections().First()
                    |> TfsTeamProjectCollectionFactory.GetTeamProjectCollection

Thorium

// Rx 1.0:
//#r "System.CoreEx" //for interactive and scripts
//#r "System.Reactive.dll" 
//open System
//open System.Collections.Generic

//Rx 2.1:
#r "System.ComponentModel.Composition.dll"
#r "../packages/Rx-Interfaces.2.1.30214.0/lib/Net45/System.Reactive.Interfaces.dll"
#r "../packages/Rx-Core.2.1.30214.0/lib/Net45/System.Reactive.Core.dll"

Thorium

//#r "System.Xml.dll" //for scripts or interactive
//#r "System.Xml.Linq.dll"
open System
open System.Xml.Linq
open System.IO

let getFiles = Directory.GetFiles("c:\\projects\\", "*.csproj", SearchOption.AllDirectories)
               |> Array.toSeq
 
let getProjectInfo (fname:string) = 

Thorium

//#r "System.Runtime.Serialization"
//#r "FSharp.PowerPack"

open Microsoft.FSharp.Control.WebExtensions
open System
open System.Runtime.Serialization
open System.Runtime.Serialization.Json
open System.Net
open System.IO

Thorium

//View codebehind

using System.Windows.Controls;
namespace HelloApp
{
	public partial class MainPage : UserControl
	{
		public MainPage()
		{
			  // Required to initialize variables