livescorexreligious.csv

x-generate.fs

let bornIndex = new HtmlProvider<"http://en.wikipedia.org/wiki/Where-to-be-born_Index">()

let religiousity = new HtmlProvider<"http://en.wikipedia.org/wiki/Importance_of_religion_by_country">()

let bindex = bornIndex.Tables.``2013 rankings``.Rows

let rindex = religiousity.Tables.Countries.Rows

let cname0 = bindex |> Array.map (fun r -> r.``Country or territory``, float r.``Score (out of 10)``) 
                    |> Map.ofArray
                    
let cname1 = rindex |> Array.map (fun r -> r.Country, let perc = r.``Yes, important`` 
                                                      float perc.[..perc.Length - 2] * 0.01) 
                    |> Map.ofSeq

let getKeys = Seq.map keyValueToKey >> set

let shared = Set.intersect (getKeys cname0) (getKeys cname1)

let data = shared |> Seq.map (fun c -> c, cname0.[c], cname1.[c]) |> Seq.toArray

let cs,livescore, rscore =  data |> Array.unzip3 

shared |> Seq.map (fun c -> sprintf "%s,%A,%A" c cname0.[c] cname1.[c]) |> joinToStringWith "\n"