Ex 5
| Run Settings | |
|---|---|
| Language | Perl |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | koel090401 |
| Created | |
| Modified | |
| Visibility | Public |
use Arreglos{
sub solucion(){
$y=0;
$sum=0;
}
map {print $_ * 2 . "\n"} (1..10);
while (<>) {
my @nums = $_ =~ /([1-10](?:\.[0-9])?)/g;
my $sum = 0;
map { $sum += $_ } @nums;
print "$sum\n";
}
}
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |