15 lines
338 B
FSharp
15 lines
338 B
FSharp
module _99
|
|
|
|
open System.IO
|
|
|
|
let biggestNum =
|
|
|
|
let baseExp =
|
|
File.ReadAllLines(@"99_base_exp.txt")
|
|
|> Array.map (fun line -> line.Split(',') |> Array.map float |> (fun a -> (a.[0], a.[1])))
|
|
|
|
baseExp
|
|
|> Array.mapi (fun i (b,e) -> (i + 1, e * System.Math.Log10(b)))
|
|
|> Array.sortBy snd |> Array.rev
|
|
|