por explorer » 2013-04-18 12:00 @542
Using perl Syntax Highlighting
# La más básica, con lápiz y papel:
my $suma = 0;
my $i = 0;
while ($i < @array) {
$suma = $suma + $array[$i];
$i++;
}
# abreviado, con for
my $suma = 0;
for (my $i = 0; $i < @array; $i++) {
$suma += $arra[$i];
}
# más abreviado, con for
my $suma = 0;
for (@array) {
$suma += $_;
}
# en notación postfija
my $suma = 0;
$suma += $_ for @array;
# map es una forma de bucle, también
my $suma = 0;
map { $suma += $_ } @array;
# usando un módulo
use List::Util 'sum';
my $suma = sum @array;
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES