Foro de elhacker.net

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


Veamos quien lo resuelve de mejor manera  ;D

resuelvelo tu primero por la via larga :P

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:

#!/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";