3 ms·

Yup. 'Minified', for fun: let a s=Map.toSeq>>Seq.sortBy s>>Seq.toArray let m f=Map.map(fun _->f) printfn"%A"(a(fun(n, _)->Array.findIndex((=)n)o

by piaste 10y ago

Yup. 'Minified', for fun: let a s=Map.toSeq>>Seq.sortBy s>>Seq.toArray let m f=Map.map(fun _->f) printfn"%A"(a(fun(n, _)->Array.findIndex((=)n)o)(m(m(a fst)>>a fst)(JsonConvert.DeserializeObject<_>BIBLE_TEXT)))