miércoles, 30 de abril de 2008

Ejercicio Seis: Comparando que es gerundio

Sobre sistemas autoorganizativos preguntarle a Ana y a Carlos, que son grandes expertos xD

ACOSOM/Redes NeuronalesAutómatas celularesSwarming
Problemas que pueden resolver Optimización, Clustering, Caminos óptimos, Robótica Optimización, Clustering
Modelación de flujo de tránsito vehicular y de peatones,fluidos (gases o líquidos), evolución de células o virus,procesos de percolación
Robótica, sistemas multiagentes
DiferenciasEstimergia, agentes, conocimiento del ambiente y demás historiasVecindario, aprendizaje, competición, propiedades emergentesDibujitos muy bonitosAgentes
ParecidosSon autoorganizativos, bioinspirados y... costosos computacionalemente. Aunque molan mucho.

Ejercicio Cinco. Por el $_ te la $1

Mostrar las 50 palabras que más se repiten en un texto ordenadas por número de apariciones.

use File::Slurp;

my $text = read_file( $ARGV[0] ) ;
my @palabros=split(" ", $text);
my %dict;

#En minúscula
for (@palabros){
if($_ =~/^([a-záéíóú])+$/){
$dict{$_}=$dict{$_}+1;
}


}

#print "Todas\n";

# foreach my $llave (keys %dict){
# print "$llave => $dict{$llave}\n";
# }

print "\nOrdenado\n";

$contador = 0;

for (sort {$dict{$b} <=> $dict{$a}} keys %dict ) {

print "$_ => $dict{$_}\n";

$contador++;

if($contador==50){
last;
}

}

miércoles, 23 de abril de 2008

Ejercicio Cuatro (con Eva Hache)

Ahora vamos a poner un tag <p> para cada párrafo:

#!/usr/bin/perl

use File::Slurp;

my $text = read_file( $ARGV[0] ) ;
my @parrafos=split("\n\n", $text);

for (@parrafos){
print "<p>".$_."</p>\n";
}


Tachán!

Ejersisio tres: Contar lineas en blanco

En plan guarro:

#!/usr/bin/perl

open my $fh, "<", $ARGV[0] or die "Eso no existe";
open my $fh_out, ">", $ARGV[1] or die "No se puede";

$contador = 0;
while(<$fh>){
chop; chop;
if( $_ ) {
print "normal\n";
}else{
print "en blanco\n";
$contador++;
}

print $contador;

}

print $contador;
print $fh_out $contador;
close $fh;
close $fh_out;

miércoles, 16 de abril de 2008

Ejercicio 1 y 2. Creación y depuración de un programa en Perl


Una imagen vale más que mil palabras.

Bienvenidos al Fergu Master Blog

Hola corazones.

En este blog se irán publicando nosequé historias del Máster y de nosequé lenguaje raro.

Si queréis (aunque debeís) visitar mi humilde blog, seguid al conejo blanco.





Y pulsad en los anuncios, por favor.