Euler Project 99

Comparing two numbers written in index form like 2¹¹ and 3⁷ is not difficult, as any calculator would confirm that 2¹¹ = 2048  3⁷ = 2187.

However, confirming that 632382⁵¹⁸⁰⁶¹  519432⁵²⁵⁸⁰⁶ would be much more difficult, as both numbers contain over three million digits.

Using base_exp.txt (right click and 'Save Link/Target As...'), a 22K text file containing one thousand lines with a base/exponent pair on each line, determine which line number has the greatest numerical value.

NOTE: The first two lines in the file represent the numbers in the example given above.

My Solution Using Mathematic

MaxIndex = 0;MaxNum=0;

For[i = 1, i < 2000, i = i + 2, 

 TempValue = N[Log[10, ToExpression[fs[[i]]]], 20]*ToExpression[fs[[i + 1]]]; 

                 If[TempValue > MaxNum, MaxNum = TempValue; MaxIndex = i]]