lenadroid

let atomicValue = CloudAtom.New(42) |> cluster.Run

cloud {
    do!
       [ for i in 1..n -> cloud { return! CloudAtom.Update (atomicValue , fun i -> i + 1)}]
       |> Cloud.Parallel
       |> Cloud.Ignore
    return! CloudAtom.Read atomicValue 
} |> runtime.Run

lenadroid

cloud {
    let value = ref 0
    Cloud.Parallel [| for i in 1 .. 10000 -> cloud { incr value } |] |> ignore
    return !value 
} |> runtime.Run

lenadroid

async {
    let value = ref 0
    let parallel = Async.Parallel [| for i in 1 .. 10000 -> async { incr value } |]
    return !value 
} |> Async.RunSynchronously

lenadroid

let cloudVector = CloudVector.New(localArray,1000L) |> runtime.Run

lenadroid

cloud { 
     let! dataFromCloudCell = CloudCell.Read dataInTheCloud
     // actions with data
 }

lenadroid

let dataInTheCloud = localData |> CloudCell.New |> runtime.Run

lenadroid

let runtime = MBrace.Boot nodes

lenadroid

let runtime = MBrace.Boot nodeslet runtime = MBrace.Boot(nodes, store = azureStore)

lenadroid

let runtime = Runtime.GetHandle(config)

lenadroid

let config = 
    { 
        Configuration.Default with
            StorageConnectionString    = "<storage connection string>"
            ServiceBusConnectionString = "<service bus connection string>" 
    }