Generalised floating point addition: Difference between revisions

m
→‎{{header|Perl}}: formatting fix
(Added Perl 6 example)
m (→‎{{header|Perl}}: formatting fix)
Line 739:
my $sum = dec_mul_pow10(1, $e);
$sum = dec_add($sum, dec_mul_pow10($num,$e)) for 1..81;
printf "$n: %s ", 10**72 == $sum ? 'Y' : 'N';
$e -= 9;
}</lang>
2,392

edits