desco v2m

v2m / gist:4821441c7faed21b0fde

Created October 13, 2014 05:30

	type System.Net.WebClient with
	member inline internal this.DownloadWithWebClient(addHandler, removeHandler, extract, start) =
	let downloadAsync =
	Async.FromContinuations (fun (cont, econt, ccont) ->
	let userToken = new obj()
	let rec handler (_: obj) (args: 'T :> ComponentModel.AsyncCompletedEventArgs) =
	if userToken = args.UserState then
	removeHandler handle
	if args.Cancelled then
	ccont (new OperationCanceledException())

v2m / gist:174ead2e49c87e104f2d

Last active August 29, 2015 14:05

v2m / local.fs

Created July 2, 2014 05:42

	let rec takeFreshConsTail cons n l =
	match l with
	\| [] ->
	if n <> 0 then failwith "insufficient length"
	setFreshConsTail cons []
	\| x::xs ->
	if n > 0 then
	let cons2 = freshConsNoTail x
	setFreshConsTail cons cons2
	takeFreshConsTail cons2 (n - 1) xs

v2m / local.fs

Created July 2, 2014 05:37

	let rec takeWhileFreshConsTail cons p l =
	match l with
	\| [] ->
	setFreshConsTail cons []
	\| x::xs ->
	if p x then
	let cons2 = freshConsNoTail x
	setFreshConsTail cons cons2
	takeWhileFreshConsTail cons2 p xs
	else

v2m / list.fs

Last active August 29, 2015 14:03

	[<CompiledName("SplitAt")>]
	let splitAt (n: int) (list: 'T list) = Microsoft.FSharp.Primitives.Basics.List.splitAt n list

v2m / Guess.cs

Last active January 4, 2016 21:29

	using System;

	interface IContainer
	{
	object Obj { set; }
	}
	struct P : IContainer
	{
	public object Obj { set { this.o = value; } }
	object o;

v2m / gist:8516546

Created January 20, 2014 08:01

var x = /°+/

v2m / gist:8031551

Created December 18, 2013 23:15

v2m / gist:8031537

Created December 18, 2013 23:14

v2m / gist:8030771

Created December 18, 2013 22:12