davidgrenier

let asyncDownload1 (url : string) =
    let req = HttpWebRequest.Create url
    req.BeginGetResponse(fun ar ->
            use resp = req.EndGetResponse(ar)
            use stream = resp.GetResponseStream()
            let result = ref [||]
            let buffer = Array.zeroCreate 8192 : byte []
            let rec readAll () =                
                stream.BeginRead(buffer, 0, buffer.Length, fun ar2 ->
                        match stream.EndRead ar2 with

davidgrenier

seq {
    for x in elements do
        if x % 3 = 0 then
            yield x + 12
}

// instead do:

elements
|> Seq.filter (fun x -> x % 3 = 0)

davidgrenier

open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open Server.Tonys

[<JavaScript>]
let string chars = System.String (chars |> List.rev |> List.toArray)

[<JavaScript>]
let rec (|Eval|) = function
    | Normal (c :: rest) ->

davidgrenier

open System
 
type Message= 
    | GetToken of AsyncReplyChannel<IDisposable>
    | Release
 
let start count =
    let agent =
        MailboxProcessor.Start(fun inbox ->
            let token =

davidgrenier

open System.Text.RegularExpressions
type Clip = System.Windows.Forms.Clipboard

[<System.STAThread>]
do    
    Regex.Matches(Clip.GetText(), @"\d+", RegexOptions.Singleline)
    |> Seq.cast<Match>
    |> Seq.map (fun x -> x.Value)
    |> Seq.distinct
    |> String.concat ","

davidgrenier

#r "System.Data.Linq"
#r "FSharp.Data.TypeProviders"

open Microsoft.FSharp.Linq
open Microsoft.FSharp.Data.TypeProviders

type Company = SqlDataConnection<ConnectionString = @"Server=(localdb)\Projects;Database=Company;Integrated Security=SSPI">

let db = Company.GetDataContext()

davidgrenier

let datum = "toalla"
let width = 99

System.String(datum |> Seq.truncate width |> Seq.toArray)
|> sprintf "%-*s" width

davidgrenier

let trySwap (source: obj ref) replacement =
    let before = !source
    let result = System.Threading.Interlocked.CompareExchange(source, replacement, before)
    System.Object.ReferenceEquals(before, result)

davidgrenier

[<Measure>]
type m

[<Measure>]
type s

type Vector<[<Measure>] 't> =
    { X: float<'t>; Y: float<'t> }

    with

davidgrenier

let add3times2minus4 =
    let add3 x = x + 3
    let times2 x = x * 2
    let minus4 x = x - 4
    [
        add3
        times2
        minus4
    ] |> Seq.reduce (>>)