Bienvenido a los foros de Perl en español, osner.
Este foro está dedicado al lenguaje Perl, y tampoco solemos hacer los ejercicios de clase, así que aquí no encontrarás solución. Mejor si preguntas en otros foros que sí se dediquen a alguna de esas dos tareas.
De todas maneras, aquí está la solución (en Perl, claro)
1.
Using perl Syntax Highlighting
sub suma_primos {
my @numeros = @_;
use Math::Prime::XS 'is_prime';
my $suma = 0;
for my $numero (@numeros) {
if (is_prime($numero)) {
$suma += $numero;
}
}
return $suma;
}
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
2.
Using perl Syntax Highlighting
sub calcular {
my @valores = @_;
use Statistics::Basic qw(:all);
use List::Util qw(max min sum);
my $vector = vector(@valores);
print "Suma: ", sum (@valores);
print "Media: ", mean ($vector);
print "Mediana: ", median($vector);
print "Moda: ", mode ($vector); # <= problemas si es de más de un valor
print "Mayor: ", max (@valores);
print "Menor: ", min (@valores);
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4