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