Imaginary base numbers: Difference between revisions
m
→{{header|Perl 6}}: Factor out some intermediate variables. Simplify zip routine.
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Factor out common code, various style tweaks) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Factor out some intermediate variables. Simplify zip routine.) |
||
Line 330:
die "Base $radix out of range" unless -6 <= $radix.im <= -2 or 2 <= $radix.im <= 6;
my ($re, $im) = $num.Complex.reals;
my ($re-wh, $re-fr)
my ($im-wh, $im-fr) = ($im/$radix.im).&base( -$radix.im².Int, :precision($precision) ).split: '.';
$_ //= '' for $re-wh, $re-fr, $im-wh, $im-fr;
sub zip (Str $a, Str $b) {
my
my $n =
▲ [~] @n || 0
}
|