4 ms·
Code golf? Code golf! let o = [|"Genesis"; "Exodus"; "Leviticus"; "Numbers"; "Deuteronomy"; "Joshua"; "Judges"; "Ruth"; "1 Samuel"; "2 Samuel
by piaste 10y ago
Code golf? Code golf!
let o = [|"Genesis"; "Exodus"; "Leviticus"; "Numbers"; "Deuteronomy";
"Joshua"; "Judges"; "Ruth"; "1 Samuel"; "2 Samuel"; "1 Kings"; "2 Kings";
"1 Chronicles"; "2 Chronicles"; "Ezra"; "Nehemiah"; "Esther"; "Job";
"Psalms"; "Proverbs"; "Ecclesiastes"; "Song of Solomon"; "Isaiah";
"Jeremiah"; "Lamentations"; "Ezekiel"; "Daniel"; "Hosea"; "Joel"; "Amos";
"Obadiah"; "Jonah"; "Micah"; "Nahum"; "Habakkuk"; "Zephaniah"; "Haggai";
"Zechariah"; "Malachi"; "Matthew"; "Mark"; "Luke"; "John"; "Acts";
"Romans"; "1 Corinthians"; "2 Corinthians"; "Galatians"; "Ephesians";
"Philippians"; "Colossians"; "1 Thessalonians"; "2 Thessalonians";
"1 Timothy"; "2 Timothy"; "Titus"; "Philemon"; "Hebrews"; "James";
"1 Peter"; "2 Peter"; "1 John"; "2 John"; "3 John"; "Jude"; "Revelation"|]
let a s = Map.toSeq >> Seq.sortBy s >> Seq.toArray
JsonConvert.DeserializeObject<_> BIBLE_TEXT
|> Map.map (fun _ -> Map.map (fun _ -> a fst) >> a fst)
|> a (fun (n, _) -> Array.findIndex ((=) n) o)
|> printfn "%A"
- paulddraper 10y agoF#, right?
- piaste 10y agoYup. '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)))