dbrattli

>>> from rx import Observable
>>> help(Observable.flat_map_latest)

dbrattli

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  */
/*                                                                                                */
/*  Simple node js module to get distance between two coordinates.                                */
/*                                                                                                */
/*  Code transformed from Chris Veness example code - please refer to his website for licensing   */
/*  questions.                                                                                    */
/*                                                                                                */
/*                                                                                                */
/*  Latitude/longitude spherical geodesy formulae & scripts (c) Chris Veness 2002-2011            */
/*   - www.movable-type.co.uk/scripts/latlong.html                                                */

dbrattli

empty_list = None
 
def prepend(el, lst):
    def func(selector):
        return selector(el, lst)
    return func
 
def head(lst):
    def selector(h, t):
        return h

dbrattli

actions=[]

for x in range(10):
    actions.append(lambda: print(x))
  
for act in actions:
    act()

dbrattli

// A (synchronous) function that might block forever
let later () =
    System.Console.ReadLine()

dbrattli

// Callback handler
let myCallback x =
    printfn "Got %A" x

// Asynchronous function taking a callback handler
let asyncFun x cb =
    let result = x * 10
    cb result

// Call function with provided callback handler

dbrattli

let add a b = a + b
let square x = x * x
let pythagoras a b = sqrt (add (square a) (square b))

let result = pythagoras 10.0 20.0

dbrattli

let addCps a b cont : unit =
    cont (a + b)

let squareCps x cont : unit =
    cont (x * x)

let sqrtCps x cont : unit =
    cont (sqrt x)

// Pythagoras rewritten in CPS

dbrattli

// Return a function that takes a callback that takes the result.
let times10 (x: int) : ((int -> unit) -> unit) =
    let thenDo (cb : int -> unit) =
        cb  (x * 10)
    thenDo

let cb result =
    printfn "%A" result

let thenDo = times10 42

dbrattli

// An asynchronous value
let valAsync = async { return 42 }