TSperl 発言

Perlで一応試してみた。

スクリプト
----------
use Math::Complex;
sub sqe{my ($a,$b,$c) = @_;my @sol=();for my $k (1,-1){push @sol, (-$b+$k*sqrt($b**2-4*$a*$c))/(2*$a);};@sol}
print join(',',sqe(1,2,3));

出力
----
C:\Scripts\Perl>perl complex.pl
-1+1.4142135623731i,-1-1.4142135623731i

Pythonと違うのは、虚数の桁数表示が少ないのと虚数を示す記号が親しみのある"i"になっていること。

藤岡 和夫
kazuf@...
日曜プログラマのひとりごと http://homepage1.nifty.com/kazuf/renewal.html