$8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8}}}}}}}}}}}}}}}}}}}}}}}}}}$
\[8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\]
$\frac{1}\frac{2}\frac{3}\frac{4}\frac{5}\frac{6}\frac{7}\frac{8}\frac{9}\frac{10}\frac{11}\frac{12}\frac{13}\frac{14}\frac{15}\frac{16}\frac{17}\frac{18}\frac{19}\frac{20}\frac{21}\frac{22}\frac{23}\frac{24}\frac{25}\frac{26}\frac{27}\frac{28}\frac{29}\frac{30}\frac{31}\frac{32}\frac{33}\frac{34}\frac{35}\frac{36}\frac{37}\frac{38}\frac{39}\frac{40}\frac{41}\frac{42}\frac{43}\frac{44}\frac{45}\frac{46}\frac{47}\frac{48}\frac{49}{50}$
#通过循环,由内向外,不断增加底
use strict;use warnings;use diagnostics;
my $str='8^{8}';
my $i=0;
while($i<50)
{
$str='8^{' . $str . '}';
$i++;
}
#输出结果
open(FH,">out2.txt");
print FH $str;
close(FH);
[code]
#通过循环,由内向外,不断增加底
use strict;use warnings;use diagnostics;
#指数形式的楼
my $str='8^{8}';
my $i=0;
while($i<50)
{
$str='8^{' . $str . '}';
$i++;
}
#输出结果
open(FH,">out2.txt");
print FH $str;
print FH "\n";
close(FH);
#分数形式的楼
$str="\\frac{1}";
$i=2;
while($i<80)
{
$str=$str . "\\frac{" . "$i" . "}";
$i++;
}
$str=$str . "{" . "$i" . "}";
#输出结果
open(FH,">>out2.txt");
print FH $str;
close(FH);
[/code]
