Tráiler del documental "Write Once, Run Forever: The Java Story"

Vídeo del tráiler sobre el documental "Write Once, Run Forever: The Java Story".

Descripción:

La historia de Java narra el improbable recorrido de Java, desde su casi desaparición antes incluso de su lanzamiento, pasando por su reinvención para la web, su ascenso como pilar del software empresarial, la batalla por el código abierto y sus múltiples demandas, hasta su notable renacimiento a partir de Java 8.

Contada por quienes lo crearon y la comunidad que lo impulsó.

Saldrá hasta el 17 de julio de 2026. Actualización: se puede ver ahora en: https://www.youtube.com/watch?v=ZqGSg4b_cZA

Enlaces:

https://www.youtube.com/channel/UCsUalyRg43M8D60mtHe6YcA
https://www.youtube.com/channel/UCmRtPmgnQ04CMUpSUqPfhxQ
https://www.cultrepo.com/

Como ser un buen programador

Enlace:

Como ser un buen programador

Ama el problema, no tu solución

Les dejo este vídeo de Coder Dog sobre los problemas a los que nos enfrentamos en el desarrollo de aplicaciones.

Programando en Perl no. 4

Continuamos con esta serie de ejercicios de programación en Perl.

En esta ocasión veremos:

1. Determinar el elemento menor de un arreglo o vector. 
2. Determinar el elemento mayor y menor de un arreglo o vector y su suma. 
3. Cómo recorrer un hash.   
4. Una entrevista con Larry Wall, creador de Perl.

1. Llenar un vector, y determinar el elemento menor

$argumentos = $#ARGV;
$cont= 0;
my @vector;
for($i=0;$i<=$argumentos;$i++){
 print $ARGV[$i],"\n";
 $vector[$i]=$ARGV[$i];
 $cont++;
}
print "\nno. de parametros: ",$cont;
my $menor=$vector[0];
my $mayor=$vector[0];
my $suma=0;
foreach $v (@vector) {
   if($v<$menor){
    $menor=$v;
   }
   if($v>$mayor){
    $mayor=$v;
   }
   $suma=$suma+$v;
}

print "\nmenor: ",$menor;
print "\nmayor: ",$mayor;
print "\nsumatoria: ",$suma;

2. Llenar un vector, determinal el elemento mayor y menor, y la suma de todos los elementos (usando una función):

$argumentos = $#ARGV;
$cont= 0;
my @vector;
for($i=0;$i<=$argumentos;$i++){
 print $ARGV[$i],"\n";
 $vector[$i]=$ARGV[$i];
 $cont++;
}
print "no. de parametros: ",$cont,"\n";
print metodo(@vector);

sub metodo{
  my @vector=@_;
  my $resultado="";
  my $menor=$vector[0];
  my $mayor=$vector[0];
  my $suma=0;
  foreach $v (@vector) {
    if($v<$menor){
      $menor=$v;
    }
    if($v>$mayor){
      $mayor=$v;
    }
    $suma=$suma+$v;
  }

  $resultado="el menor es: $menor ,el mayor es: $mayor ,la suma es $suma\n";
  return $resultado;
}

3. Recorrer un hash

my %mapa=('Pedro',32,'Maria',31,'Horacio',65);
print "Recorrer con while\n";
while (($key, $value) = each(%mapa)){
     print $key.", ".$value."\n";
}

print "Recorrer con foreach\n";
foreach $key (%mapa)
{
 print $key.",".$mapa."\n";
}

¿Por qué Perl es como un lenguaje humano?
Aquí una entrevista(en inglés) al creador de Perl,  Larry Wall.

Links
http://bigthink.com/videos/hobbits-would-make-great-programmers
https://github.com/book/perlsecret