liammclennan

/// types
type addPersonEvent = { name: string; age: int }
type birthdayEvent = { name: string; }
type event = 
    | AddPerson of addPersonEvent
    | Birthday of birthdayEvent
type person = { name: string; age: int; joined: DateTime }
type aggregateStream = seq<event>

/// event stream for person aggregate

liammclennan

/** @jsx React.DOM */

var Hello = React.createClass({
    render: function() {
        return <div>Hello {this.props.name}</div>;
    }
});
 
React.renderComponent(<Hello name="World"><p>foo</p></Hello>, document.body);

liammclennan

let lToS (l:char list) = System.String.Concat(Array.ofList(l))

let sumString = 
	let parse (l:string) =
		let guessDelimeter (l:string) = 
			match Seq.toList l with
				| '/'::'/'::c::'\n'::_ -> c
				| _ -> Seq.find (fun i -> i = ',' || i = '\n') l
		let valuePart = (fun (s:string) ->
			match Seq.toList s with

liammclennan

$ curl --ntlm http://localhost:50695/Scripts/src.js -u : -o src.js

liammclennan

public static class DictionaryExtensions
{
    public static Dictionary<TKey, TValue> Merge<TKey,TValue>(this Dictionary<TKey, TValue> first,
        Dictionary<TKey, TValue> second)
    {
        return new[] {first, second}
            .SelectMany(d => d)                         // flatten dictionaries to IEnumerable<KeyValuePair<TKey,TValue>>
            .ToLookup(kvp => kvp.Key, kvp => kvp.Value) // group by key
            .ToDictionary(g => g.Key, g => g.Last());   // last value wins
    } 

liammclennan

_ = require 'underscore'

class SurveyResponse
  constructor: (@site, @results) ->

default_result = 
  'csharp': 0
  'fsharp': 0
  'haskell': 0
  'ruby': 0

liammclennan

public Markup Home(string name) {
  return P("Welcome " + name)
}

public Markup Layout(Markup content) {
  return Html(
    Body (
      Div(content).attr(new {@class= "content"})
    )
}

liammclennan

; 1.1

10
;10

(+ 5 3 4)
;12

(- 9 1)
;8

liammclennan

(define (doit a b c)  
  (define descending (sort (list a b c) >))
  (+ (square (car descending))  (square (car (cdr descending))))
)

liammclennan

import System.IO
import Control.Concurrent

fibonacci :: Int -> Int
fibonacci 1 = 0
fibonacci 2 = 1
fibonacci n = fibonacci (n-1) + fibonacci (n-2)

nTimes :: Int -> IO ThreadId -> IO ()
nTimes 0 do_this = return ()