andredublin

var Identity = function(x) {
  this.__value = x;
}

Identity.of = function(x) { return new Identity(x); };

Identity.of(3);
//=> Identity(3)

Identity.of('hotdogs');

andredublin

module Tennis

%default total

data Player = PlayerOne | PlayerTwo

Eq Player where
  (==) PlayerOne PlayerOne = True
  (==) PlayerOne PlayerTwo = False
  (==) PlayerTwo PlayerOne = False

andredublin

let sequence = ["A";"C";"A";"C";"G";"A";"G";"C";"A";"G";"T"]

let numbers = [1;2;3;4;5]

let dnaTotals = List.fold(fun (a, c, g, t) char -> 
    match char with
    | "A" -> (a + 1, c, g, t)
    | "C" -> (a, c + 1, g, t)
    | "G" -> (a, c, g + 1, t)
    | "T" -> (a, c, g, t + 1)

andredublin

dnvm upgrade -r mono

andredublin

curl -sSL https://raw.githubusercontent.com/aspnet/Home/dev/dnvminstall.sh | DNX_BRANCH=dev sh && source ~/.dnx/dnvm/dnvm.sh

andredublin

#!/bin/bash
git push $1 +HEAD:master
git fetch $1
git push origin --tags

andredublin

public static class WebApiConfig
  {
      public static void Register(HttpConfiguration config)
      {
          config.EnableCors(); // allow cross origin resource sharing
          config.MapHttpAttributeRoutes(); // enable attribute routing
      }
  }

andredublin

#r "packages/FunScript/lib/net40/FunScript.dll"
#r "packages/FunScript.TypeScript.Binding.lib/lib/net40/FunScript.TypeScript.Binding.lib.dll"

[<ReflectedDefinition>]
module Program =
  open FunScript.TypeScript

  let main () =
    Globals.window.alert("Hello, world!")

andredublin

open System

let allDuplicateChars (str : string) =
    str.Replace(str.[0].ToString(), "") |> String.IsNullOrEmpty

andredublin

// src/fsharp/FSharp.Core/array.fs#L702-L706
let mutable state = acc 
let len = array.Length
for i = 0 to len - 1 do 
    state <- f.Invoke(state,array.[i])
state