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