F# Retrieve Convert bitcoin value based on exchange rate from JSON and do a simple calculationAPI
I’m learning F# and trying to find a more ‘functional’ way to code a simple program that retrieves the price of BTC and calculates the EUR value of an amount of Bitcoin.
open System
open System.Net
open Newtonsoft.Json.Linq
let myBTC = 0.1234567
let client = new WebClient()
client.UseDefaultCredentials = true
let priceInfo = client.DownloadString("https://blockchain.info/ticker")
let jPrice : JObject = JObject.Parse priceInfo
let jEUReurPrice = float (jPrice.["EUR"].["buy"] :?> JValue
let priceBTC : float = float jEUR)
let calcWorth = myBTC * priceBTCeurPrice
printfn "%s" calcWorth.ToString("N")
I’m learning F# and trying to find a more ‘functional’ way to code a simple program that retrieves the price of BTC and calculates the EUR value of an amount of Bitcoin.
open System
open System.Net
open Newtonsoft.Json.Linq
let myBTC = 0.1234567
let client = new WebClient()
client.UseDefaultCredentials = true
let priceInfo = client.DownloadString("https://blockchain.info/ticker")
let jPrice : JObject = JObject.Parse priceInfo
let jEUR = jPrice.["EUR"].["buy"] :?> JValue
let priceBTC : float = float jEUR
let calcWorth = myBTC * priceBTC
printfn "%s" calcWorth.ToString("N")
I’m learning F# and trying to find a more ‘functional’ way to code a simple program that retrieves the price of BTC and calculates the EUR value of an amount of Bitcoin.
open System
open System.Net
open Newtonsoft.Json.Linq
let myBTC = 0.1234567
let client = new WebClient()
client.UseDefaultCredentials = true
let priceInfo = client.DownloadString("https://blockchain.info/ticker")
let jPrice = JObject.Parse priceInfo
let eurPrice = float (jPrice.["EUR"].["buy"] :?> JValue)
let calcWorth = myBTC * eurPrice
printfn "%s" calcWorth.ToString("N")
F# Retrieve JSON and do a simple calculation
I’m learning F# and trying to find a more ‘functional’ way to code a simple program that retrieves the price of BTC and calculates the EUR value of an amount of Bitcoin.
open System
open System.Net
open Newtonsoft.Json.Linq
let myBTC = 0.1234567
let client = new WebClient()
client.UseDefaultCredentials = true
let priceInfo = client.DownloadString("https://blockchain.info/ticker")
let jPrice : JObject = JObject.Parse priceInfo
let jEUR = jPrice.["EUR"].["buy"] :?> JValue
let priceBTC : float = float jEUR
let calcWorth = myBTC * priceBTC
printfn "%s" calcWorth.ToString("N")
lang-ml