[Programación] Re: [Programación] Ayuda con un algoritmo...

[Jose Luis Diaz]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Wednesday 12 May 2004 11:55, Horacio Castellini wrote:
> Holas...
> 	Continuando con lo anterior... alguien me puede dar una punta de un
> algoritmo para elaborar una estadistica de nombres sobre una lista por
> ejemplo...
>
> (Sebastián  Criado)
>   (Ricardo Brisighelli)
>   (Horacio Castellini)
>   (Sebastián  Criado)
>   (Alejandro Gabriel Brust)
>   (Horacio Castellini)
>   (Horacio Castellini)
>   (Obi Wan Kenobi)
>   (PabloM)
>   (Rosarinos.com)
>   (Sebastián  Criado)
>   (Sebastián  Criado)
>   (Rosarinos.com)
>   (Sebastián  Criado)
>   (Alejandro Gomez Fernandez)
>   (Alejandro Gabriel Brust)
>   (Alejandro Gomez Fernandez)
>   (Horacio Castellini)
>   (Germán_Porta)
>   (Lord Folken)
>   (Lord Folken)
>   (Sebastián  Criado)
>   (Horacio Castellini)
>
> Donde por ejemplo "Sebastián  Criado" es el más frecuente con xxx
> mensajes... etc... se entiende??? o es Nihon-go, Arigatou.... watasi wa
> Horacio des... _______________________________________________

Si no te importa que el orden sean Lineal.. O(n) podes hacer :)

#!/usr/bin/perl 

while($line = <STDIN>) {
	chop($line); # comentar si no hay \n final
	$seen{$line} ++;
}

foreach $key (keys(%seen)) {
	print $key . "\t" . $seen{$key} . "\n";	
}


- -Jx

- -- 
José Luis Diaz - jose@citynet.net.ar            /"\  ASCII Ribbon Campaign
GNU/Linux Registered User #138499               \ /  No HTML in mail or news!
RTFM! - http://rtfm.org.ar                       X
"Kernel Panic - No signature found"             / \
- --
PGPkey: http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x7BCD2757
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQFAo73CM4NSjXvNJ1cRArFQAJ9+Cj9mh9qGT2x69D9XsM1ZCvic/ACdEBdN
Gg+6LNQsseDuW7y0NwE9Vi8=
=PMGk
-----END PGP SIGNATURE-----