Diferencia entre revisiones de «Implementación de algoritmos de teoría de números/Números amigos»
Contenido eliminado Contenido añadido
Etiqueta: posible vandalismo |
|||
Línea 553:
<source lang="perl">
#!/usr/bin/perl
Línea 560 ⟶ 561:
# autor: Juan Carlos Morataya Ramos
# fecha: 26 de enero de 2012.
#
use strict;
Línea 569 ⟶ 570:
my $h;
# programa principal
for ($h = 2; $h < $limitnumber; $h++) {
if ($h == $nfrd) { next }
Línea 583 ⟶ 585:
}
# funcion para encontrar numeros divisibles
sub checksum {
my $i;
| |||