Skip to content

Instantly share code, notes, and snippets.

open System
open Prelude
open System.Text.RegularExpressions
open System.IO
open System.Windows
let sw = Diagnostics.Stopwatch()
/////////////////////////////////////////////////////////////
let countsymbols (s : string) =
Algeria 5.86 0.93
Angola 5.09 0.88
Argentina 6.39 0.66
Australia 8.67 0.32
Austria 7.73 0.55
Azerbaijan 5.6 0.495
Bangladesh 5.07 1.0
Belgium 7.51 0.33
Brazil 6.52 0.865
Bulgaria 5.73 0.335
open System
open FSharp.Data
type GplusPost = FSharp.Data.JsonProvider<"gplusposttemplate.json">
type GplusSearch = FSharp.Data.JsonProvider<"gplusSearchTemplate.json">
type GplusCommentList = FSharp.Data.JsonProvider<"gplusCommentListTemplate.json">
let googlePlusFunc key url parse (mapItems) (next) takeAtATime maxtake query =
let download token choice =
try