Re: Power of two round up.

[myocom]

in reply to Power of two round up.

More TIMTOWTDI:

for my $foo (1..210) {
    print "$foo ",dec2bin($foo)," binrounded is ",binround($foo),"\n";
}

sub binround {
    my $bin = dec2bin(shift);
    my $mod = 0;
    $mod = 1 if (split('1','0'.$bin.'0') == 2);
    return '1' . ('0' x (length($bin)-$mod));
}

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;
    return $str;
}