CarstenKoenig

import pygame
import random
import math

from vec import Vec
from GF2 import *

pygame.init()

screen_width = 600

lobrien

let GetAsync(url : string, i : int) = 
    async {
        let req = WebRequest.Create(url)
        let! rsp = req.AsyncGetResponse()
        use stream = (rsp :?> HttpWebResponse).GetResponseStream()
        use zip = new GZipStream(stream, CompressionMode.Decompress)
        use reader = new StreamReader(zip)
        Console.WriteLine("Received page " + i.ToString())
        return reader.ReadToEnd()
    }

vasily-kirichenko

open System

type Cylinder = 
    | FourFourEight
    | SixSixTwelve
    | ThreeThreeSix
    | TwoTwoTwo

type CylinderMeasurement = 
    { WidthA: float

ninegrid

type cell = A | B

type 'cell U = U of 'cell LazyList * 'cell * LazyList<'cell>

module Universe = 
  open LazyList

  let U left focus right = U (left, focus, right)
  let initial () = U (repeat A) B (repeat A)
  let shiftRight = fun (U (left,focus,Cons(focus',right))) -> U (cons focus left) focus' right

ninegrid


#r @"E:\Assemblies\OpenTK\OpenTK.dll"

open System
open System.Drawing
open System.Collections.Generic

open OpenTK
open OpenTK.Graphics
open OpenTK.Graphics.OpenGL

palladin

#time

#r "bin/Release/Streams.Core.dll"

open Nessos.Streams.Core

let data = [|1..10000000|] |> Array.map int64

#r "../../packages/FSharp.Collections.ParallelSeq.1.0/lib/net40/FSharp.Collections.ParallelSeq.dll"

cure53

Keybase proof

I hereby claim:

• I am cure53 on github.
• I am cure53 (https://keybase.io/cure53) on keybase.
• I have a public key whose fingerprint is F98B 0EC1 8640 2F60 292C 5877 C26C 8580 90F7 0ADA

To claim this, I am signing this object:

KdotJPG

/**
 * K.jpg's OpenSimplex 2, smooth variant ("SuperSimplex")
 *
 * More language ports, as well as legacy 2014 OpenSimplex, can be found here:
 * https://github.com/KdotJPG/OpenSimplex2
 */

public class OpenSimplex2S {

    private static final long PRIME_X = 0x5205402B9270C86FL;

mavnn

source https://nuget.org/api/v2

nuget FSharp.Formatting
nuget NUnit 
nuget NUnit.Runners
nuget Nuget.CommandLine
nuget FAKE
nuget SourceLink.Fake

github fsharp/FAKE modules/Octokit/Octokit.fsx

hodzanassredin

let countOfDisks = 10
 
let initialState = [for x in 1..countOfDisks do yield x], List.empty, List.empty 
 
let bottDiskSize = 4.
let cylHeight = 4.0
let diskSize size = size * bottDiskSize / float(countOfDisks)
let diskHeight = cylHeight / float(countOfDisks)
let diskPosition pos = pos * diskHeight
let cyl =