1999-02-25から1日間の記事一覧
明解Ｃ言語 入門編 > 7. 基本型 > ビット構成を表示する Perl sub count_bits { my ($x) = @_; $count = 0; while ($x) { $count++ if ($x & 1) ; $x >>= 1; } return $count; } sub int_bits { return &count_bits(~0); } sub print_bits { my ($x) = @_; f…
明解Ｃ言語 入門編 > 7. 基本型 > ビット構成を表示する Perl sub count_bits { my ($x) = @_; $count = 0; while ($x) { $count++ if ($x & 1) ; $x >>= 1; } return $count; } sub int_bits { return &count_bits(~0); } sub print_bits { my ($x) = @_; f…
