各行に2つの数字が書かれた1000行のテキストファイルがある．
一つ目の数字をa，二つ目の数字をbとし，a^bを計算する(300万桁以上になるため容易には計算できない)．
このとき，最大の値を計算できる数字が書かれている行番号を求めろという問題．
正解者の多い問題はやはり簡単．2行で終わった．1行でもいける．
ln.num <- apply(read.table(file="base_exp.txt", sep=","), 1, function(x){x[2] * log(x[1])}) (1:1000)[ln.num==max(ln.num)]
