Post History
Perl, 71 bytes perl -nE'($a,$b,$c,$d)=/-?\d+/g;printf"%d%+di",$a*$c-$b*$d,$a*$d+$c*$b' Try it online! Perl has built-in complex number support but the output format is wrong: use Math::Comple...
#1: Initial revision
# Perl, 71 bytes ``` perl -nE'($a,$b,$c,$d)=/-?\d+/g;printf"%d%+di",$a*$c-$b*$d,$a*$d+$c*$b' ``` [Try it online!][TIO-mn1r15w9] [TIO-mn1r15w9]: https://tio.run/##RcxRC4IwFAXgd3/FZVyxvF6c04IY1R8JQp3GQEzUHvrzrdkeejkcPg5n6ubh4F5LB31Xr6@5g2Sp34mOptmOaw8iZqUWOF9AZHjXbod1hk2GbYZmf875ejOUP3RYi9jEZKxf1im2jE2K5tcNYZti4zT4cyG0g5IqC1DxwQJfAEpFhY24opNXxSpoIUkd/0yBWR2pkJ5LknbbyMDl1iKQ/glCbh9cbPp5Tqt9jovjcfgC "Perl 5 – Try It Online" Perl has built-in complex number support but the output format is wrong: ``` use Math::Complex; ($i,$j)=/\S+/g; say cplx($i)*cplx($j); ```
