- 167 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 01:58:25.69 ]
- sub decimal2binary {
my $decimal = shift;
my $binary = "";
while($decimal>=1) {
$binary = $decimal % 2 . $binary;
$decimal /= 2;
}
$binary;
}
sub binary2decimal {
my $binary = shift;
@binary_ary = reverse split //, $binary;
my $i = 1;
my $result = 0;
for(@binary_ary) {
$result += $_ * $i;
$i <<= 1;
}
$result;
}
print binary2decimal(decimal2binary(5184)); #=> 5184
こういう10進数と2進数の変換関数を書いたのですが、もっとクールにしたいです。添削お願いします。
