Cromosomas de Camello (FerguMaster)

Ejercicio Seis: Comparando que es gerundio

2008-04-30T07:38:00.000-07:00

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

	ACO	SOM/Redes Neuronales	Autómatas celulares	Swarming
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
Diferencias	Estimergia, agentes, conocimiento del ambiente y demás historias	Vecindario, aprendizaje, competición, propiedades emergentes	Dibujitos muy bonitos	Agentes
Parecidos	Son autoorganizativos, bioinspirados y... costosos computacionalemente. Aunque molan mucho.

Ejercicio Cinco. Por el $_ te la $1

2008-04-30T03:23:00.000-07:00

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;
    }

}

Ejercicio Cuatro (con Eva Hache)

2008-04-23T09:11:00.001-07:00

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

2008-04-23T08:41:00.001-07:00

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;

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

2008-04-16T09:34:00.001-07:00

Una imagen vale más que mil palabras.

Bienvenidos al Fergu Master Blog

2008-04-16T08:53:00.000-07:00

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.