diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-01-28 00:36:52 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-01-28 00:53:54 +0000 |
| commit | d3ace41b673d56b7e683c99c24229534935880f4 (patch) | |
| tree | 776d7ce2845db05c460a6a5db768e02beb2d3d66 /challenge-079 | |
| parent | 92e99f61d6116958a011d364a898fc93fd08e0cf (diff) | |
| download | perlweeklychallenge-club-d3ace41b673d56b7e683c99c24229534935880f4.tar.gz perlweeklychallenge-club-d3ace41b673d56b7e683c99c24229534935880f4.tar.bz2 perlweeklychallenge-club-d3ace41b673d56b7e683c99c24229534935880f4.zip | |
Remove spaces
Diffstat (limited to 'challenge-079')
| -rw-r--r-- | challenge-079/paulo-custodio/perl/ch-1.pl | 6 | ||||
| -rw-r--r-- | challenge-079/paulo-custodio/perl/ch-2.pl | 16 |
2 files changed, 11 insertions, 11 deletions
diff --git a/challenge-079/paulo-custodio/perl/ch-1.pl b/challenge-079/paulo-custodio/perl/ch-1.pl index dba39d1251..c789f38b70 100644 --- a/challenge-079/paulo-custodio/perl/ch-1.pl +++ b/challenge-079/paulo-custodio/perl/ch-1.pl @@ -71,7 +71,7 @@ sub bit_count { } sub sum { - my($sum, @a) = @_; - $sum += $_ for @a; - return $sum; + my($sum, @a) = @_; + $sum += $_ for @a; + return $sum; } diff --git a/challenge-079/paulo-custodio/perl/ch-2.pl b/challenge-079/paulo-custodio/perl/ch-2.pl index 1c4248898a..f9f75bcad4 100644 --- a/challenge-079/paulo-custodio/perl/ch-2.pl +++ b/challenge-079/paulo-custodio/perl/ch-2.pl @@ -72,15 +72,15 @@ sub draw_hist { } sub max { - my($max, @a) = @_; - for (@a) { - $max = $_ if $max < $_; - } - return $max; + my($max, @a) = @_; + for (@a) { + $max = $_ if $max < $_; + } + return $max; } sub sum { - my($sum, @a) = @_; - $sum += $_ for @a; - return $sum; + my($sum, @a) = @_; + $sum += $_ for @a; + return $sum; } |