This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 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 ] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
open System | |
type MyCollection() = | |
interface IDisposable | |
let d = new MyCollection() | |
(d :> IDisposable).Dispose() | |
let v = (printfn "hello"; [100]) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[<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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
namespace TODOList | |
open WebSharper | |
open WebSharper.JavaScript | |
open WebSharper.JQuery | |
open WebSharper.UI.Next | |
open WebSharper.UI.Next.Client | |
[<JavaScript>] | |
module Code = |
OlderNewer