dsyme

type Building = 
  { left : int
    right : int
    height : int }

let buildings = []
let getHeight building = building.height
let getWidth building = building.right - building.left
let getArea building = getHeight building * getWidth building

dsyme

C:\GitHub\dsyme\visualfsharp>.\appveyor-build.cmd

C:\GitHub\dsyme\visualfsharp>set APPVEYOR_CI=1

C:\GitHub\dsyme\visualfsharp>if not '12.0' == '' goto vsversionset

C:\GitHub\dsyme\visualfsharp>echo Visual Studio Version = 12.0
Visual Studio Version = 12.0

C:\GitHub\dsyme\visualfsharp>if '12.0' == '' echo Error: Could not find a Visual

dsyme

// assumed
let FindPackages(_,_,_,_) = [| "package" |]
type Source = { IsNuget: bool; Url: string }
let DefaultNugetSource = { IsNuget = true; Url = "http://nuget.org" }

//-------------------------------
// using parallel merged asyncSeq's

let SearchPackagesByName(sources, search) = 
    let sources = [ yield! sources; yield  DefaultNugetSource ]    

dsyme

http://benchmarksgame.alioth.debian.org/u64/program.php?test=fannkuchredux&lang=fsharp&id=1


Fri, 22 May 2015 04:36:01 GMT

MAKE:
mv fannkuchredux.fsharp fannkuchredux.fs
/usr/local/bin/fsharpc --target:exe --platform:x64 -O  -o fannkuchredux.fsharp_run.exe fannkuchredux.fs
F# Compiler for F# 3.1 (Open Source Edition)
Freely distributed under the Apache 2.0 Open Source License

dsyme

let fannkuch n =
  begin
  let perm1 = Array.create n 0 in for i = 0 to (n-1) do perm1.[i] <- i done;
  let perm = Array.create n 0
  let count = Array.create n 0
  let mutable flips = 0 
  let mutable maxflips = 0 
  let mutable checksum = 0 
  let mutable nperm = 0
  let mutable r = n

dsyme

type Domain = interface end 
type Projection<'R> = 
    abstract member source : Table<'R> 
and Table<'R> = inherit Projection<'R> 
and Table<'R, 'K> = 
    inherit Table<('R * 'K)> 
    abstract member row : 'R 
    abstract member key : 'K

type proj<'R> = Projection<'R> 

dsyme

[<Struct>]
type S(x:int) = 
   member a.X = x

// Using the explicit struct constructor
let v1 = [ 1..3 ] |> List.map S |> List.map (fun x -> x.X)

// Using the default struct constructor

dsyme

open System

type MyCollection() =
  interface IDisposable

let d = new MyCollection()

(d :> IDisposable).Dispose()

let v = (printfn "hello"; [100])

dsyme

//custom type 
type SomeType(v) = member x.V = v

[<AutoOpen>]
module Aux1 = 
    //custom type that can carry measure 
    [<MeasureAnnotatedAbbreviation>] 
    type SomeType<[<Measure>] 'm>(v) = 
        member x.V = v

dsyme

namespace TODOList

open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Client

[<JavaScript>]
module Code =