• Publicidad

Cómo sumar los elementos de un array

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Cómo sumar los elementos de un array

Notapor mparrado8 » 2013-04-18 11:16 @511

¡Hola! No tengo ni idea de cómo sumar los elementos que he metido en un array, ¿de qué formas puede hacerse?
mparrado8
Perlero nuevo
Perlero nuevo
 
Mensajes: 32
Registrado: 2013-04-10 12:58 @582

Publicidad

Re: Cómo sumar los elementos de un array

Notapor explorer » 2013-04-18 12:00 @542

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. # La más básica, con lápiz y papel:
  2. my $suma = 0;
  3.  
  4. my $i = 0;
  5. while ($i < @array) {
  6.     $suma = $suma + $array[$i];
  7.     $i++;
  8. }
  9.  
  10. # abreviado, con for
  11. my $suma = 0;
  12.  
  13. for (my $i = 0; $i < @array; $i++) {
  14.     $suma += $arra[$i];
  15. }
  16.  
  17. # más abreviado, con for
  18. my $suma = 0;
  19.  
  20. for (@array) {
  21.     $suma += $_;
  22. }
  23.  
  24. # en notación postfija
  25. my $suma = 0;
  26.  
  27. $suma += $_ for @array;
  28.  
  29. # map es una forma de bucle, también
  30. my $suma = 0;
  31.  
  32. map { $suma += $_ } @array;
  33.  
  34. # usando un módulo
  35. use List::Util 'sum';
  36. my $suma = sum @array;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Cómo sumar los elementos de un array

Notapor mparrado8 » 2013-04-18 15:06 @671

¡Muchas gracias!
mparrado8
Perlero nuevo
Perlero nuevo
 
Mensajes: 32
Registrado: 2013-04-10 12:58 @582

Re: Cómo sumar los elementos de un array

Notapor MARKO » 2013-04-18 15:30 @688

TIM TOADY
MARKO
Perlero nuevo
Perlero nuevo
 
Mensajes: 86
Registrado: 2012-01-10 22:34 @982

Re: Cómo sumar los elementos de un array

Notapor explorer » 2013-04-18 15:37 @692

Hay más formas...

Se puede hacer con eval() y join()... y con expresiones regulares... ¿alguien se anima?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 51 invitados