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