#=summe1.pl - Unicode wird in Perl 5
use utf8;
sub Σ {
my $i = 0;
$i += $_ for @_;
return $i;
}
print Σ(1..10), "\n"; # gibt 55 aus
#=summe1.pl - Unicode wird in Perl 5
use utf8;
sub Σ {
my $i = 0;
$i += $_ for @_;
return $i;
}
print Σ(1..10), "\n"; # gibt 55 aus