# Any -> 16進数 $num = hex($hexadecimal) # Any -> 10進数 $number = oct($hexadecimal) $number = oct($octal) $number = cbt(Abinaly)

use Math::Complex; my $a = Math::Complex->new(3,5); my $b = Math::Complex->new(2,-2) my $c = $a * $b;

use PDL; # $aと$bはどちらもpdlオブジェクト $c = $a x $b;

sub log_base { my ($base, $value) = @_; reuturn log($value) / log($base); }

# 標準関数のみで実現 sub tan { my $theta = shift; return sin($theta) / cos($theta) } # POSIXを使用 use POSIX; $y = acos(3.7); # Math::Trigを使用 use Math::Trig; $y = acos(3.7);

何か期待はずれな名前。これじゃ、先が知れているなぁ。先がしれてるから、わざとそんな名前にしたのかもしれないけど。新しい会社になるのに、何で親会社の看板が必要なんだろ。欧米の会社とかは、フリースケールをはじめとして、ちゃんと独立した社名を付…

最近、というようよりもずっと昔からかもしれないけど、内縁の妻との虐待事件が多いような気がする。不思議と男は、２０代前半で無職、女は20真ん中から30ぐらいまでで、二人ぐらいの子持ち。そもそもなんでこんな組み合わせが成立するの？って感じ。女は子…