Skip to content

Instantly share code, notes, and snippets.

namespace TODOList
open WebSharper
open WebSharper.JavaScript
open WebSharper.JQuery
open WebSharper.UI.Next
open WebSharper.UI.Next.Client
[<JavaScript>]
module Code =
[12:34:33] *** drs1005 would like to add you on Skype
Hi Василий Кириченко, I'd like to add you as a contact. This is Don Syme ***
[12:35:04] *** Василий Кириченко has shared contact details with drs1005. ***
[15:16:00] drs1005: hey got a moment?
[15:16:41] Василий Кириченко: hi, yep
[15:16:50] drs1005: I'd like to screen share, I'll call then we can do that.
[15:16:55] *** Call to Василий Кириченко ***
[15:17:39] Василий Кириченко: I don't have microphone here at work
[15:17:44] drs1005: ok, I'llscreen share
let inline min (array:_[]) =
let mutable acc = array.[0]
for i = 1 to array.Length - 1 do
let curr = array.[i]
if curr < acc then
acc <- curr
acc
let min2 (array:_[]) =
type Point =
struct
val X: float
val Y: float
new(x: float, y: float) = { X = x; Y = y }
new(x: float) = new Point(x, 3.0)
end
Point(3.0)
type Point =
struct
val X: float
[<DefaultValue>] val mutable Y: float
new(x: float) = { X = x }
end
let mutable p = Point(3.0)
p.Y <- 4.0
@dsyme
dsyme / gist:0f3c6e5ac3d9f5e2d723
Last active March 1, 2016 16:06
struct tuples
open System
let run() =
for i in 0 .. 10 do
let size = 10000000
GC.Collect()
let watch = Diagnostics.Stopwatch.StartNew()
let mutable arrTuple = Array.init size (fun i -> (i,i))
arrTuple <- [|(0,0)|]
source https://www.myget.org/F/dotnet-core/api/v3/index.json
source https://api.nuget.org/v3/index.json
source https://www.nuget.org/api/v2/
nuget Microsoft.NETCore.Platforms 1.0.1-rc2-23911
nuget NETStandard.Library 1.5.0-rc2-23911
nuget System.Collections.Immutable 1.2.0-rc2-23911
nuget System.Diagnostics.Process 4.1.0-rc2-23911
nuget System.Diagnostics.TraceSource 4.0.0-rc2-23911
C:\misc\repro-54>.paket\paket.exe update
Paket version 2.60.2.0
Resolving packages for group Main:
- System.Diagnostics.Process is pinned to 4.1.0-rc2-23911
- System.Reflection.TypeExtensions is pinned to 4.1.0-rc2-23911
- System.Runtime.InteropServices is pinned to 4.1.0-rc2-23911
- System.Security.Cryptography.Algorithms is pinned to 4.1.0-rc2-23911
- System.Linq.Expressions is pinned to 4.0.11-rc2-23911
- System.Net.Requests is pinned to 4.0.11-rc2-23911
- System.Threading.ThreadPool is pinned to 4.0.10-rc2-23911
1) Failed : Tests.LanguageService.GotoDefinition.UsingMSBuild.GotoDefinition.Simple.Datatype.UnitTypeTypenameDef
Expected string length 21 but was 14. Strings differ at index 0.
Expected: "type One = (*loc-16*)"
But was: "One (*loc-15*)"
-----------^
at Tests.LanguageService.GotoDefinition.UsingMSBuild.GotoDefinitionCheckResultAgainst(FSharpOption`1 exp, OpenFile file, GotoDefinitionResult act) in D:\j\workspace\release_ci_pa---3f142ccc\vsintegration\tests\unittests\Tests.LanguageService.GotoDefinition.fs:line 516
2) Failed : Tests.LanguageService.GotoDefinition.UsingMSBuild.OnTypeDefintion
Expected to find the definition of 'One' but GotoDefn failed.
at Salsa.VsOpsUtils.CheckGotoDefnResult(FSharpOption`1 expected, OpenFile file, GotoDefinitionResult actual) in D:\j\workspace\release_ci_pa---3f142ccc\vsintegration\tests\Salsa\SalsaUtils.fs:line 333
@dsyme
dsyme / Eto sample script
Created October 18, 2014 11:35
Sample of using the Eto cross-platform GUI framework (https://github.com/picoe/Eto/) with F# (on windows)
#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