Los escritos pueden ser puramente objetivos y descriptivos o apelar a las emociones y sentimientos. Entre los buenos escritos estadísticos y matemáticos y los religiosos hay una extensa gama de grises. Quisiera empezar por los primeros antes de degenerar en los segundos, como inevitablemente y por razones prácticas se acaba haciendo en la historia personal, y el currículum profesional.
El tema que me preocupa en este ensayo 0 es la inextricable relación entre la suma de dígitos y el factor de que es multiplo un número. Cuando un número es múltiplo del mayor número de la base, su suma de dígitos resulta finalmente en ese mismo número mágico: 9 en base 10, 7 en base octal, etc. Sin embargo, cuando el número es múltiplo de 3 (base 10) la suma de dígitos resulta estar limitada a 3, 6 ó 9 sin explicación convincente hasta que escribo estas líneas.
Para ilustrar el problema nada mejor que compartir la pasión del cálculo con otros cibernautas con acceso al gratuito y expléndido lenguaje de programación PERL (Practical Extraction and Report Language), disponible para infinidad de sistemas operativos.
#!/usr/bin/perl
while (1){
$c++;
$r = $c*6;
while ($r>=10){
$r = sumup($r);
}
# *NEVER* PRINT STAMENTS:
# if ($r != 9){ print "$c x 9 = a number which sums $r\n"; }
# if ($r!=9 && $r!=6 && $r!=3){ print "$c x 3 = a number which sums $r\n"; }
print "$c $r\n";
}
sub sumup {
$str = shift;
@dig = split "",$str;
my $sum=0;
for $i (@dig){
$sum += $i;
}
return $sum;
}
__END__
¿Dónde encontrar Perl? En www.cpan.org, "Ports"
Back