#!/usr/bin/perl

use 5.040.1;                 # la subversión .5 está disponible y es la más avanzada

# lun 31 ago 2026 10:01:33 CEST
# lun 31 ago 2026 08:01:42 GMT  
# (!c) Jesús Lozano Mosterín, 2026

unless (scalar(@ARGV) == 2){
    say "Use: $0 <n> <num>";
    say "n es la base n";
    say "num es el número";
    exit -1;
}

my ($n, $num);
$n = $ARGV[0] if $ARGV[0] !~ /\D/;    # base
$num = $ARGV[1] if $ARGV[1] !~ /\D/;  # magnitud

for my $c (1 .. 10){
    say "log_n($n, $num) = ", log_n($n, $num);
    $n += $c;
}

exit 2;


sub log_n {
    my ($n,$num) = @_;
    return log($num)/log($n);
}

# sub log10 {
# my $n = shift;
# return log($n)/log(10);
# }
							
__END__

Una herramienta básica de cáculo de bits mínimos necesarios
  para contener una cifra decimal. Ejemplo: 1_000_000_000, 27 bits