Imaginary base numbers: Difference between revisions
m
→{{header|Perl 6}}: fix slightly too aggressive rounding
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Slight comment correction) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix slightly too aggressive rounding) |
||
Line 738:
my $ibase = $v.&base($r, :precision(-6));
printf "%33s.&base\(%2si\) = %-11s : %13s.&parse-base\(%2si\) = %s\n",
$v, $r.im, $ibase, "'$ibase'", $r.im, $ibase.&parse-base($r).round(1e-
}</lang>
{{out}}
Line 760:
5+5i.&base(-6i) = 5.U : '5.U'.&parse-base(-6i) = 5+5i
227.65625+10.859375i.&base( 4i) = 10234.5678 : '10234.5678'.&parse-base( 4i) = 227.65625+10.859375i
31433.3487654321-2902.4480452675i.&base( 6i) = PERL6.ROCKS : 'PERL6.ROCKS'.&parse-base( 6i) = 31433.
=={{header|Sidef}}==
| |||