Select Code to Download

'log'   =>      sub { $_[0]->copy()->blog($_[1]); },

sub blog
  {
...

  return $x->bnan();
  }

  my ($rc,$exact) = $CALC->_log_int($x->{value},$base->{value});

sub _log_int
  {
...
  return if (scalar @$x == 1 && $x->[0] == 0);
  # BASE 0 or 1 => NaN
  return if (scalar @$base == 1 && $base->[0] < 2);