Readers of Sergey Tihon's Blog vs Country population using FSharp.Data WorldBank type provider.

ReadersVsPopulation.fsx

#r @"C:\Bib\Projects\FSharp.Data\src\bin\Release\FSharp.Data.dll"

open FSharp.Data

let data = WorldBankData.GetDataContext()

let ``Sergey's data`` =
    [
        "United States", 11823
        "United Kingdom", 4256
        "Germany", 2121
        "Russian Federation", 1674
        "Belarus", 1579
        "Canada", 1552
        "India", 1454
        "Sweden", 1161
        "Australia", 1144
        "France", 1108
        "Japan", 885
        "Netherlands", 828
        "Switzerland", 747
        "Ukraine", 663
        "Denmark", 660
        "Spain", 601
        "Poland", 462
        "Brazil", 443
        "Greece", 357
        "Austria", 357
        "Hungary", 350
    ]

let maxLength =
    ``Sergey's data``
    |> Seq.map fst
    |> Seq.map (fun x -> x.Length)
    |> Seq.max

query {
    for (countryName, readers) in ``Sergey's data`` do
    join c in data.Countries on (countryName = c.Name)
    let population =
        query {
            for pop in c.Indicators.``Population, total``.Values do
            last
        }
    let ratio = float readers / population * 1e2
    sortByDescending ratio
    select (sprintf "|%*s|%6i|%11.0g|%.4f%%|" (maxLength + 1) c.Name readers population ratio)
} |> Seq.iter (printfn "%s")