gusty

#r @"c:/packages/FsControl.1.0.9/lib/net40/FsControl.Core.dll"
 
open FsControl.Core.TypeMethods
open FsControl.Core.Types
open FsControl.Operators
 
type MonadBuilder() =
    member inline b.Return(x)    = result x
    member inline b.Bind(p,rest) = p >>= rest
    member        b.Let (p,rest) = rest p

Thimoteus

module Main where

import Data.Function
import Debug.Trace
import Control.Monad.Trans
import Control.Monad.Cont.Trans
import Control.Monad.Eff

foreign import data Timeout :: !
type Milliseconds = Number

toburger

module Reflection =
    open Microsoft.FSharp.Quotations
    open Microsoft.FSharp.Quotations.Patterns
    open System.Reflection

    let private (|Name|) (info: MemberInfo) = info.Name

    let private (|PropertyName|_|) = function
        | PropertyGet (_, Name name, _) -> Some name
        | _ -> None

akimboyko

Как метапрограмировать используя .Net на конференции #HotCode

• Заранее убедиться:
  • Что установлен .Net 4.5
  • и/или Visual Studio 2012
  • Опционально Roslyn CTP
• Установить менеджер пакетов Chocolatey
  • @powershell -NoProfile -ExecutionPolicy unrestricted -Command "iex ((new-object net.webclient).DownloadString('https://chocolatey.org/install.ps1'))" && SET PATH=%PATH%;%systemdrive%\chocolatey\bin
• Перезапустить консоль (cmd.exe), для обновления переменных среды
• Установить ScriptCs используя Chocolatey

mausch

using System;
using System.Collections.Generic;
using System.Collections.Specialized;

// As opposed to magic validation libraries that rely on reflection and attributes, 
// applicative validation is pure, total, composable, type-safe, works with immutable types, and it's easy to implement.

public abstract class Result<T> {
    private Result() { }

mrange

// Minimalistic Parser Combinator in F#
//  Neither Performance nor Error Reporting has been considered
//  For production code you are better off using http://www.quanttec.com/fparsec/
//  Inspired by the classic: http://www.cs.nott.ac.uk/~pszgmh/monparsing.pdf
[<Measure>]
type ParserPos
type ParserResult<'T> = 'T option*int<ParserPos>
type Parser<'T>       = string*int<ParserPos> -> ParserResult<'T>

module Parser =

NOTtheMessiah

-- SpaceWar Elm by NOTtheMessiah (http://twitter.com/N0TtheMessiah)
--
-- Initial Commit
-- Todo: cleanup, graphics, scoreboard, options, respawn delay
--
-- Player 1 uses wasd and shift
-- Player 2 uses arrow keys and space

import Keyboard
import Window

anaisbetts

// Pretend that cookies work
(function (document) {
  var cookies = {};
  document.__defineGetter__('cookie', function () {
    var output = [];
    for (var cookieName in cookies) {
      output.push(cookieName + "=" + cookies[cookieName]);
    }
    return output.join(";");
  });

mrcoles

export const computeOffset = elt => {
  let rect = elt.getBoundingClientRect();
  let width = rect.width;
  let height = rect.height;

  let left = 0;
  let top = 0;
  let offsetParent = elt;
  while (offsetParent) {
    left += offsetParent.offsetLeft;

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)