Re (tilly) 1: Power of two round up.


No such thing as a small change
	PerlMonks

Re (tilly) 1: Power of two round up.

by tilly (Archbishop)

on Dec 15, 2000 at 23:15 UTC ( [id://46894]=note: print w/replies, xml )

Need Help??

in reply to Power of two round up.

TIMTOWTDI

sub binround {
  my $out = 1;
  my $in = shift;
  while ($in) {
    $in >>= 1;
    $out += $out;
  }
  $out;
}
[download]

Comment on Re (tilly) 1: Power of two round up. Download Code

Replies are listed 'Best First'.

Re: Re (tilly) 1: Power of two round up.
by japhy (Canon) on Dec 15, 2000 at 23:31 UTC

sub next_pwr {
  my ($x,$p) = (@_,2);  # default to next_pwr(X,2)
  my $log = log($x)/log($p);
  $log = int($log+1) if $log != int($log);
  return $p**$log;
}
[download]

log()

{
  my %LOG = (2 => log(2));  # most common
  sub next_pwr {
    my ($x,$p) = (@_,2);  # default to next_pwr(X,2)

    # assertions, etc.
    die "illegal base: $p" if $p < 2;
    return 1 if $x == 1;
    $p = int $p;

    my $log =
      ($LOG{$x} ||= log($x)) / ($LOG{$p} ||= log($p));
    $log = int($log+1) if $log != int($log);

    return $p ** $log;
  }
}
[download]

japhy

Perl and Regex Hacker

[reply]
[d/l]
[select]

In Section Cool Uses for Perl