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