Skip to main content
Test de eficiencia
Origen Enlace

Ejemplo:

Ejemplo:

for I in {1..30}; do is-perfect.sh $I; done | nl
     1  Ingrese número entero mayor que 1
     2  No es perfecto
     3  No es perfecto
     4  No es perfecto
     5  No es perfecto
     6  Es perfecto
     7  No es perfecto
     8  No es perfecto
     9  No es perfecto
    10  No es perfecto
    11  No es perfecto
    12  No es perfecto
    13  No es perfecto
    14  No es perfecto
    15  No es perfecto
    16  No es perfecto
    17  No es perfecto
    18  No es perfecto
    19  No es perfecto
    20  No es perfecto
    21  No es perfecto
    22  No es perfecto
    23  No es perfecto
    24  No es perfecto
    25  No es perfecto
    26  No es perfecto
    27  No es perfecto
    28  Es perfecto
    29  No es perfecto
    30  No es perfecto

Eficiencia:

time ./is-perfect.sh 33550336
Es perfecto

real    0m0.163s
user    0m0.242s
sys     0m0.117s

Ejemplo:

for I in {1..30}; do is-perfect.sh $I; done | nl
     1  Ingrese número entero mayor que 1
     2  No es perfecto
     3  No es perfecto
     4  No es perfecto
     5  No es perfecto
     6  Es perfecto
     7  No es perfecto
     8  No es perfecto
     9  No es perfecto
    10  No es perfecto
    11  No es perfecto
    12  No es perfecto
    13  No es perfecto
    14  No es perfecto
    15  No es perfecto
    16  No es perfecto
    17  No es perfecto
    18  No es perfecto
    19  No es perfecto
    20  No es perfecto
    21  No es perfecto
    22  No es perfecto
    23  No es perfecto
    24  No es perfecto
    25  No es perfecto
    26  No es perfecto
    27  No es perfecto
    28  Es perfecto
    29  No es perfecto
    30  No es perfecto

Ejemplo:

for I in {1..30}; do is-perfect.sh $I; done | nl
     1  Ingrese número entero mayor que 1
     2  No es perfecto
     3  No es perfecto
     4  No es perfecto
     5  No es perfecto
     6  Es perfecto
     7  No es perfecto
     8  No es perfecto
     9  No es perfecto
    10  No es perfecto
    11  No es perfecto
    12  No es perfecto
    13  No es perfecto
    14  No es perfecto
    15  No es perfecto
    16  No es perfecto
    17  No es perfecto
    18  No es perfecto
    19  No es perfecto
    20  No es perfecto
    21  No es perfecto
    22  No es perfecto
    23  No es perfecto
    24  No es perfecto
    25  No es perfecto
    26  No es perfecto
    27  No es perfecto
    28  Es perfecto
    29  No es perfecto
    30  No es perfecto

Eficiencia:

time ./is-perfect.sh 33550336
Es perfecto

real    0m0.163s
user    0m0.242s
sys     0m0.117s
Origen Enlace

Más allá de señalar errores en el código, el título "Números perfectos en Bash" es por sí mismo interesante y por lo tanto, vale la pena considerar otros abordajes al mismo problema.

Todo divisor propio de un número entero es, o un factor primo de éste, o bien, el producto de algunos de sus factores primos. El comando factor del paquete coreutils devuelve los factores primos de un número entero. Basta entonces considerar los distintos productos de estos factores primos, sumarlos y hacer el test requerido.

#!/bin/bash

# Validación de la entrada: debe ser entero mayor que 1
[[ "$1" =~ ^[0-9]+$ && "$1" -gt 1 ]] || { echo "Ingrese número entero mayor que 1"; exit 2; }

# Función power_set: devuelve todos los posibles subconjuntos de un conjunto
# Ver: https://unix.stackexchange.com/a/11667/348372
power_set() { [ "$#" -eq 0 ] && echo || (shift; power_set "$@") | while read r; do 
    printf '%s %s\n%s\n' "$1" "$r" "$r"; done; }

#Suma de todos los divisores del entero dado (excluyendo 1 e incluyendo el mismo número)
SUMA_DIVISORES=$(power_set $(factor $1 | cut -d' ' -f2-) | tr ' ' '*' | sed 's/*$/*1/' \
                 | bc -ql | sort -n | uniq | awk '{s+=$1}END{print s}')

# En el test debemos excluir/restar el input e incluir/sumar el 1
[[ $1 -eq $(( SUMA_DIVISORES-$1+1 )) ]] && echo "Es perfecto" || echo "No es perfecto"  

Ejemplo:

for I in {1..30}; do is-perfect.sh $I; done | nl
     1  Ingrese número entero mayor que 1
     2  No es perfecto
     3  No es perfecto
     4  No es perfecto
     5  No es perfecto
     6  Es perfecto
     7  No es perfecto
     8  No es perfecto
     9  No es perfecto
    10  No es perfecto
    11  No es perfecto
    12  No es perfecto
    13  No es perfecto
    14  No es perfecto
    15  No es perfecto
    16  No es perfecto
    17  No es perfecto
    18  No es perfecto
    19  No es perfecto
    20  No es perfecto
    21  No es perfecto
    22  No es perfecto
    23  No es perfecto
    24  No es perfecto
    25  No es perfecto
    26  No es perfecto
    27  No es perfecto
    28  Es perfecto
    29  No es perfecto
    30  No es perfecto