mjgpy3

// Try to make mutations explicit

function transition(obj, prop, current, next cb) {
  obj[prop] = current;
  return cb(function () {
    obj[prop] = next;
  });
}

mjgpy3

let doSomething a b =
  let plusOne = a + 1
  let result = plusOne*b

  result

let doSomething2 a b =
  (fun plusOne ->
  (fun result ->
    result

mjgpy3

let memo = ref Map.empty

let rec memoizedFibs n =
  if Map.containsKey n !memo
  then Map.find n !memo
  else
    let result = 
      match n with
        | 1L -> 1L

mjgpy3

let valueOr someDefault perhaps =
  match perhaps with
    | Some v -> v
    | None -> someDefault

let valueOr2 someDefault =
  fun perhaps ->
      match perhaps with
        | Some v -> v
        | None -> someDefault

mjgpy3

(*

Examples:

  \x.x                           -----> \x.x

  x                              -----> error!!!

  (\x.x \y.y)                    -----> \y.y

mjgpy3

(*

Examples:

  \x.x                           -----> \x.x

  x                              -----> error!!!

  (\x.x \y.y)                    -----> \y.y

mjgpy3

(*

Examples:

  \x.x                           -----> \x.x

  x                              -----> error!!!

  (\x.x \y.y)                    -----> \y.y

mjgpy3

type Measurements<'a> = {
  Water: 'a
  Wood: 'a
  Coal: 'a
  Iron: 'a
  Stone: 'a
  Obsidian: 'a
  Copper: 'a
  Gold: 'a
  Silver: 'a

mjgpy3

type StepDirection =
  | Down
  | Up

type SpecifcStair = int
type Index = int

let input = "-+-++---"

let charToStepDir = function

mjgpy3

fromStream('book-return-example')
  .when({
      $init: () => ({
          current: 0,
          results: []
      }),
      SteppedDown: (s, e) => {
          if (s.current === 0) {
              s.results.push(parseInt(e.sequenceNumber)+1);
          }