Imaginary base numbers: Difference between revisions
m
→{{header|Perl}}: small simplification
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: small simplification) |
|||
Line 2,679:
$_ //= '' for $re_fr, $im_fr;
my $whole =
my $fraction = zip $im_fr, $re_fr;
$fraction eq 0 ? "$whole" : "$whole.$fraction"
|