elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [RETO-EJERCICIO] Perl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [RETO-EJERCICIO] Perl  (Leído 1,555 veces)
fary
Colaborador
***
Desconectado Desconectado

Mensajes: 958



Ver Perfil WWW
[RETO-EJERCICIO] Perl
« en: 11 Enero 2014, 10:39 am »

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

Código:
   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  ;D


En línea

Un byte a la izquierda.
engel lex
Moderador Global
***
Desconectado Desconectado

Mensajes: 15.514



Ver Perfil
Re: [RETO-EJERCICIO] Perl
« Respuesta #1 en: 11 Enero 2014, 10:57 am »

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


En línea

El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
fary
Colaborador
***
Desconectado Desconectado

Mensajes: 958



Ver Perfil WWW
Re: [RETO-EJERCICIO] Perl
« Respuesta #2 en: 11 Enero 2014, 12:22 pm »

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:

Código
  1. #!/usr/bin/perl
  2.  
  3. use v5.16;
  4.  
  5. my @datos;
  6. my $i = 0;
  7. my $a;
  8.  
  9. while ($i<5)
  10. {
  11. print "Introduzca fila " . ($i+1) . ":";
  12.  
  13. my @temp = split(" ",<STDIN>);
  14.  
  15. for $a (0..4)
  16. {
  17. $datos[$i][$a] = $temp[$a];
  18. }
  19.  
  20. $i++;
  21. }
  22.  
  23. my (@fila,@columna);
  24. my ($tmpfila,$tmpco);
  25.  
  26. for $i (0..4)
  27. {
  28.    for $a (0..4)
  29.    {
  30.        $tmpfila += $datos[$i][$a];  
  31.        $tmpco += $datos[$a] [$i];
  32.    }
  33.    push (@fila,$tmpfila, " ");
  34.    push (@columna,$tmpco, " ");
  35.  
  36.    $tmpco = $tmpfila = 0;
  37. }
  38.  
  39. say "Totales filas: @fila";
  40. say "Totales columnas; @columna";
« Última modificación: 11 Enero 2014, 12:28 pm por mDrinky » En línea

Un byte a la izquierda.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Ejercicio] Aca tienen un ejercicio para practicar « 1 2 3 »
Programación Visual Basic
Dreamaker 20 12,959 Último mensaje 5 Septiembre 2010, 02:57 am
por TGa.
Libros de Perl online [PERL]
Scripting
madpitbull_99 0 2,997 Último mensaje 18 Mayo 2011, 21:49 pm
por madpitbull_99
[Perl] Creacion de un Joiner en Perl
Scripting
BigBear 0 2,039 Último mensaje 15 Marzo 2013, 16:12 pm
por BigBear
Reto algoritmo mezcla cifras y letras (RETO REMUNERADO)
Desafíos - Wargames
kingMezlo 3 3,400 Último mensaje 31 Diciembre 2013, 19:47 pm
por #Aitor
[RETO-EJERCICIO] Perl: Obtener valor de digitos
Scripting
fary 1 1,361 Último mensaje 21 Enero 2014, 17:48 pm
por fary
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines