Thorium

// This is just an initial example / tech-demo.
#if INTERACTIVE
#I "./../packages/NBitcoin/lib/net45/"
#I "./../packages/Newtonsoft.Json/lib/net45"
#r "NBitcoin.dll"
#r "Newtonsoft.Json.dll"
#else
module BlockChain
#endif

Thorium

//Add reference to NBitcoin
#if INTERACTIVE
#I "./../packages/NBitcoin.3.0.1.6/lib/net45/"
#I "./../packages/Newtonsoft.Json.9.0.1/lib/net45"
#r "NBitcoin.dll"
#r "Newtonsoft.Json.dll"
#endif

open System
open NBitcoin

Thorium

// 1. Install: http://www.graphviz.org/Download..php
//
// 2. Add <appSettings> under <configuration> to app.config/web.config
//    Add Nuget / Paket: GraphViz.NET 
//
// 3. Add under <configuration><appSettings>:
// <add key="graphVizLocation" value="C:\Program Files (x86)\Graphviz2.38\bin" />
//
// Add references to System.Configuration.dll and System.Drawing.dll

Thorium

#if INTERACTIVE
#r "System.Xml.Linq.dll"
#else
module Rss
#endif

open System
open System.Xml.Linq

type NewsItem = { 

Thorium

#if INTERACTIVE
#r "System.Xml.dll"
#r "System.Xml.Linq.dll"
#endif

open System
open System.Net
open System.IO
open System.Xml.Linq

Thorium

open System
open System.IO
open System.Security.Cryptography
open System.Text
open System.Diagnostics.Contracts

let EncryptStringWith (plain:string) (key:string) (iv:string) = 
    let enc = new ASCIIEncoding()
    use encrypted = new MemoryStream()
    use encode = new ToBase64Transform()

Thorium

open System.Net
open System.IO

let makePostRequest (url : string) (requestBody : string) = 
    let req = WebRequest.CreateHttp url
    req.CookieContainer <- new CookieContainer()
    req.Method <- "POST"
    req.ProtocolVersion <- HttpVersion.Version10
    let postBytes = requestBody |> System.Text.Encoding.ASCII.GetBytes
    req.ContentLength <- postBytes.LongLength

Thorium

// 1) Create TransactionScope, on Mono and in .NET, and the later one supports TransactionScopeAsyncFlowOption. 
// 2) Then, complete the transaction automatically if no exceptions has been thrown. 
// If Async or Task, then automatically await the result before complete without blocking the thread.

#if INTERACTIVE
#r "System.Transactions.dll"
#endif
open System
open System.Threading
open System.Threading.Tasks

Thorium

open System
open System.Collections.Concurrent  
let cache = ConcurrentDictionary<(string * obj),Lazy<obj>>()
let cacheTimes = ConcurrentDictionary<string,DateTime>()
let cacheTimeSeconds = 30.
let memoizeConcurrent (caller:string) (f: ('a -> 'b)) = fun x ->
    match cacheTimes.TryGetValue caller with
    | true, time when time < DateTime.UtcNow.AddSeconds(-cacheTimeSeconds)
        -> cache.TryRemove((caller, x|>box)) |> ignore
    | _ -> ()

Thorium

open System

let ``calculate distance`` (p1Latitude,p1Longitude) (p2Latitude,p2Longitude) =
    let r = 6371.0; // km
    let dLat = (p2Latitude - p1Latitude) * Math.PI / 180.0
    let dLon = (p2Longitude - p1Longitude) * Math.PI / 180.0
    let lat1 = p1Latitude * Math.PI / 180.0
    let lat2 = p2Latitude * Math.PI / 180.0

    let a = Math.Sin(dLat/2.0) * Math.Sin(dLat/2.0) +