panesofglass

// make sure codegen.py (https://github.com/CensoredUsername/codegen/blob/master/codegen.py) is in the same folder
// and you've added the IronPython package

open System.IO
open IronPython.Hosting
open IronPython.Runtime
open Microsoft.FSharp.Reflection

let engine = Python.CreateEngine()

panesofglass

type ResultBuilder() =
    member _.MergeSources(t1: Result<'T,'U>, t2: Result<'T1,'U>) = Result.zip t1 t2
    
    member _.BindReturn(x: Result<'T,'U>, f) = Result.map f x

    member _.Return (value: 'T) : Result<'T, 'TError> = Ok value

    member _.ReturnFrom (result: Result<'T, 'TError>) : Result<'T, 'TError> = result

    member this.Zero () : Result<unit, 'TError> = this.Return ()

panesofglass

module powerbi.visuals {
    export interface ViewModel {
        value: number;
        color?: string;
        min?: number;
        max?: number;
    }

    export class Thermometer implements IVisual {
        public static capabilities: VisualCapabilities = {

panesofglass

open System
open System.Threading

type FiberResult<'a> = Result<'a, exn> option

[<Sealed;AllowNullLiteral>]
type Cancel(parent: Cancel) =
  let mutable flag: int = 0
  let mutable children: Cancel list = []
  new() = Cancel(null)

panesofglass

#r "System.dll"
open System
open System.Diagnostics

// NOTE: A special version for primitives would increase
// performance for primitive types, especially for I/O,
// byte-based operations.

// [snippet: Circular Buffer]
type CircularBuffer<'a> (bufferSize: int) =

panesofglass

// [snippet: Async socket server using F# async computations.]
open System
open System.IO
open System.Net
open System.Net.Sockets
open System.Threading

type Socket with
  member socket.AsyncAccept() = Async.FromBeginEnd(socket.BeginAccept, socket.EndAccept)

panesofglass

The Voronoi tesselation shows the closest point on the plane for a given set of points. This example updates the Voronoi diagram in response to mouse interaction! Colors by Cynthia Brewer; algorithm by Steven Fortune; implementation based on work by Nicolas Garcia Belmonte; interaction inspired by Raymond Hill.

This example shows what voronoi tesselations look like drawn with various d3 line interpolators.

panesofglass

namespace BlazorApp1.Pages

open System
open System.Collections.Generic
open System.Linq
open System.Threading.Tasks
open System.Net.Http
open Microsoft.AspNetCore.Blazor
open Microsoft.AspNetCore.Blazor.Components
open Microsoft.AspNetCore.Blazor.Layouts

panesofglass

fetch ('https://stackoverflow.com/').then(response => response.text()).then(html => {
    let fragment = document.createRange().createContextualFragment(html);
    let content = fragment.querySelectorAll('[rel=tag]');
    for (let el of content) {
        console.log(el.getAttribute('href'));
    }
}).catch(error => console.error(error));

panesofglass

// F<'a> is any type with member 'map' of type ('a -> 'b) -> F<'a> -> F<'b>

type F<'a> = QIL<'a> 
and S<'a> = F<Q<'a>>
and Q<'a> =        
    private
    | Step of Step<'a>
    | Bind of IBind<'a>
    with
        static member lift (k : F<'a>) : Q<'a> = Step (Suspend (fun () -> S<_>.map (Yield >> Step) k))