[RETO-EJERCICIO] Perl

[fary]

El objetivo es sumar las filas y las columnas de una matriz (5x5) que será introducida por el usuario, ej.

Código [Seleccionar] Expandir

   Introduzca fila 1: 2 5 3 4 5
   Introduzca fila 2: 2 6 8 4 5
   Introduzca fila 3: 9 8 3 5 2
   Introduzca fila 4: 5 3 8 5 6
   Introduzca fila 5: 0 1 4 3 4
   Totales filas    : 19 25 27 27 12
   Totales columnas : 18 23 26 21 22

Veamos quien lo resuelve de mejor manera  

[engel lex]

resuelvelo tu primero por la via larga

no desconfío, solo quiero ver que lo sabes hacer, ya que no parece reto sino tarea XD

[fary]

resuelvelo tu primero por la via larga

no desconfío, solo quiero ver que lo sabes hacer, ya que no parece reto sino tarea XD

Bueno, si te empeñas, esta sería mi solución asi de primeras:

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl

use v5.16;

my @datos;
my $i = 0;
my $a;

while ($i<5)
{
print "Introduzca fila " . ($i+1) . ":";

my @temp = split(" ",<STDIN>);

for $a (0..4)
{
$datos[$i][$a] = $temp[$a];
}

$i++;
}

my (@fila,@columna);
my ($tmpfila,$tmpco);

for $i (0..4)
{
   for $a (0..4)
    {
       $tmpfila += $datos[$i][$a];  
        $tmpco += $datos[$a] [$i];
    }
    push (@fila,$tmpfila, " ");
    push (@columna,$tmpco, " ");

    $tmpco = $tmpfila = 0;
}

say "Totales filas: @fila";
say "Totales columnas; @columna";