Cómo encontrar el modo de una matriz de números en Perl

Cuando usted tiene una serie de números en Perl , puede utilizar la función de mapa para crear un hash que consiste en que cada número único y su conteo. Al ordenar el hash en orden descendente, el primer elemento es el modo. Sin embargo, ya no puede haber más de un modo , debe continuar para buscar los elementos siguientes en el hash ordenados que tienen el mismo número que el primer elemento . Instrucciones
1

Inicie un editor de texto o el Bloc de notas y crear un nuevo script de Perl. Por ejemplo , escriba lo siguiente como la primera línea en el archivo:

# /usr /bin /perl
2

declaran tres variables - la matriz de la que desea ! calcular la moda , un hash para almacenar la cuenta de cada número único y un valor escalar de la cuenta del modo . Por ejemplo , escriba:

my @ array; mi número % ; mi $ count ;
3

Agregar números a la matriz y establecer el modo de conteo a cero, lo que no es un recuento válido para un modo . Por ejemplo , escriba:

@ array = ( 7,1,5,9,11,7,3,3,5,7,9,3,8 ), $ count = 0 ;
Página 4

Crear un hash donde las claves son números únicos de la matriz y los valores son el número de ocurrencias de cada clave mediante la asignación de la matriz a un hash e incrementando el valor cada vez que una tecla se añade el hash . Por ejemplo , escriba: Mapa del Sitio Web

{$ $ _ { número } + + } @ array ;
5

Ordenar el hash en el orden basado en el número de ocurrencias descendente para que el clave con la mayoría de los sucesos , o el modo , es el primer elemento . Recorrer el hash ordenados para encontrar el modo. Por ejemplo , escriba:

por $ i ( tipo $ { número } { $ b < = > $ {$ a número } } teclas numéricas % ) {
6

Imprimir el número de veces que el modo aparece en el conjunto de datos la primera vez sólo a través del bucle. Por ejemplo , escriba:

print " El modo aparece el número $ { $ i } veces en el conjunto de datos \\ n ". Si $ count == 0 ;
7

Capture la cuenta del modo de la primera vez que pasa a través del bucle comprobando si el recuento modo es cero. Por ejemplo , escriba:

$ count = ( $ count == 0 ) ? $ Número { $ i }: $ count ;
8

Imprimir el valor de la modalidad de cada modo en el conjunto de datos si la cuenta es el mismo que el modo de conteo . Por ejemplo , escriba:
impresión

" modo es $ i \\ n " si $ i $ { número } == $ count ;}
9

Guardar la secuencia de comandos y asignar una nombre del archivo , por ejemplo " mode.pl. " Ejecutar el guión y verifique que el resultado es correcto . Por ejemplo , la secuencia de los pasos anteriores genera el siguiente resultado:

El modo aparece 3 veces en el setmode datos es 3mode es 7