Select Code to Download

C:\>perl -MMath::Decimal128=":all" -le "$n1=Math::Decimal128->new('10'
+, 0);$n2=Math::Decimal128->new('1000001', -6);for(1..60000000){$n1 *=
+ $n2}print $n1;"
114197313013072744502959647597176e-5

C:\>perl -MMath::LongDouble=":all" -le "$n1=Math::LongDouble->new('10'
+);$n2=Math::LongDouble->new('1.000001');for(1..60000000){$n1 *= $n2}p
+rint $n1;"
1.14197313013239314e+027

C:\>perl -MMath::LongDouble=":all" -le "$n1=Math::LongDouble->new('10'
+);$n2=Math::LongDouble->new('1.000001');for(1..60000000){$n1 *= $n2}p
+rint LDtoSTRP($n1, 28);"
1.141973130132393144424071168e+027

C:\>perl -MMath::Float128=":all" -le "$n1=Math::Float128->new('10');$n
+2=Math::Float128->new('1.000001');for(1..60000000){$n1 *= $n2}print $
+n1;"
1.14197313013072744502959647306684e+27