Imaginary base numbers: Difference between revisions

Imaginary base numbers (view source)

170 bytes removed , 7 years ago

m

→‎{{header|Perl 6}}: Factor out some intermediate variables. Simplify zip routine.

10,333

edits

Revision as of 02:18, 15 February 2017 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: Factor out common code, various style tweaks) ← Older edit		Revision as of 02:51, 15 February 2017 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: Factor out some intermediate variables. Simplify zip routine.) Newer edit →
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) .= $re.&base( -$radix.im².Int, :precision($precision) ).split: '.'; my ($im-wh, $im-fr) = ($im/$radix.im).&base( -$radix.im².Int, :precision($precision) ).split: '.'; ~~my ($re-wh, $re-fr) = $re.split: '.';~~ ~~my ($im-wh, $im-fr) = $im.split: '.';~~ $_ //= '' for $re-wh, $re-fr, $im-wh, $im-fr; sub zip (Str $a, Str $b) { my @n$l = do'0' ~~given~~x ($a.chars ~~cmp~~max $b.chars {); my $n = ~~when Less {~~[~] flat (~~flat~~ $a~$l).comb~~, 0 xx )~~ Z flat ($b~$l).comb }; ~~when More { flat~~ $an.~~comb~~=subst(/ Z'0'+ ~~flat~~$ ~~(flat $b.comb~~/, 0 xx '') }; ~~[~] @~~$n \|\| '0'▼ ~~default { flat $a.comb Z flat $b.comb }~~ } ~~@n.pop while +@n and @n.tail eq 0;~~ ▲ [~] @n \|\| 0 }