Imaginary base numbers: Difference between revisions

m
→‎{{header|Perl}}: small simplification
m (→‎{{header|Perl}}: small simplification)
Line 2,679:
$_ //= '' for $re_fr, $im_fr;
 
my $whole = join '', reverse split '', zip join('', reverse split '', $re_wh), join('', reverse split '', $im_wh);
my $fraction = zip $im_fr, $re_fr;
$fraction eq 0 ? "$whole" : "$whole.$fraction"
2,392

edits