Skip to content

Instantly share code, notes, and snippets.

View johnazariah's full-sized avatar

John Azariah johnazariah

  • Microsoft Corporation
  • Brisbane, Queensland, Australia
  • 04:19 (UTC +10:00)
View GitHub Profile
public class Program
{
public void Main()
{
var solution = new Directory
{
["global.json"] = new JObject
{
["projects"] = new JArray { "src", "test" }
},
@johnazariah
johnazariah / infix-eval.fs
Last active August 29, 2015 14:16 — forked from anonymous/infix-eval.fs
2-op infix expression evaluator
module Parsing =
open System.Collections.Generic
let (|Mul|_|) ch = if ch = '*' then Some(fun a b -> a * b) else None
let (|Add|_|) ch = if ch = '+' then Some(fun a b -> a + b) else None
let (|Space|_|) (ch:Char) = if Char.IsWhiteSpace ch then Some(ch) else None
let (|Digit|_|) (ch:Char) = if Char.IsDigit ch then (new String ([|ch|])) |> Int32.Parse |> Some else None
type Token =
| Number of int

Resilient Architectures for the cloud

Slide - Introduction

Ask these questions:

  • How many of you have deployed your applications for the cloud?
  • Have you ever had any downtown out of something you didn't do?
type Building =
{ left : int
right : int
height : int }
let buildings = []
let getHeight building = building.height
let getWidth building = building.right - building.left
let getArea building = getHeight building * getWidth building
type Building =
{ left : int
right : int
height : int }
let buildings = []
let getHeight building = building.height
let getWidth building = building.right - building.left
let getArea building = getHeight building * getWidth building