Skip to content

Instantly share code, notes, and snippets.

Avatar

Don Syme dsyme

View GitHub Profile
View gist:99e208bf1801a47f96d1
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
dsyme / Eto sample script
Created Oct 18, 2014
Sample of using the Eto cross-platform GUI framework (https://github.com/picoe/Eto/) with F# (on windows)
View Eto sample script
#r @"packages\Eto.Forms.1.3.0\lib\net40\Eto.dll"
#r @"packages\Eto.Platform.Windows.1.3.0\lib\net40\Eto.Platform.Windows.dll"
open System
open Eto.Forms
open Eto.Drawing
View gist:9c95a66a18b2c625b057
//==========================================
// Hypothetical fully self-contained getting-started example for Suave Web Server scripting
//
// This script fetches the Paket.exe component which is referenced later in the script.
// Initially the #r "paket.exe" reference is shown as unresolved. Once it has been
// downloaded by the user (by executing the first part of the script) the reference
// shows as resolved and can be used.
//------------------------------------------
@dsyme
dsyme / gist:9b18608b78dccf92ba33
Last active May 24, 2019
Working self-contained getting-started sample for Suave Web Scripting
View gist:9b18608b78dccf92ba33
//==========================================
// Working fully self-contained getting-started example for Suave Web Server scripting
//
// Note you don't need to have _anything_ installed before starting with this script. Nothing
// but F# Interactive and this script.
//
// This script fetches the Paket.exe component which is referenced later in the script.
// Initially the #r "paket.exe" reference is shown as unresolved. Once it has been
// downloaded by the user (by executing the first part of the script) the reference
// shows as resolved and can be used.
View gist:b3838c25b2285bdff0aa
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
View gist:56cc39dc881aabb904ba
// 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
dsyme / gist:d3b6347051b07484db21
Created May 25, 2015
Benchmark program failing on 64-bit LLVM
View gist:d3b6347051b07484db21
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
View gist:699443054cfb1d479df1
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
dsyme / gist:d02446c3e139a7b81f28
Created Jul 17, 2015
Example of initialization unsoundness due to delayed interface implementation
View gist:d02446c3e139a7b81f28
open System
type MyCollection() =
interface IDisposable
let d = new MyCollection()
(d :> IDisposable).Dispose()
let v = (printfn "hello"; [100])
@dsyme
dsyme / gist:f07a195a5f0f412b34ec
Created Jul 17, 2015
usig struct constructors
View gist:f07a195a5f0f412b34ec
[<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
You can’t perform that action at this time.