diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-05-13 21:04:27 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-05-13 21:04:27 +0200 |
| commit | 08a22d39b3cf40f785ead0b29f30f2528473894f (patch) | |
| tree | 83f58a7b459994d764eddd0b39a57d28e0380289 /challenge-060 | |
| parent | 8b909a6f2c4e0a324d322d10f7f531ef490982a7 (diff) | |
| download | perlweeklychallenge-club-08a22d39b3cf40f785ead0b29f30f2528473894f.tar.gz perlweeklychallenge-club-08a22d39b3cf40f785ead0b29f30f2528473894f.tar.bz2 perlweeklychallenge-club-08a22d39b3cf40f785ead0b29f30f2528473894f.zip | |
reformat code
Diffstat (limited to 'challenge-060')
| -rwxr-xr-x | challenge-060/jo-37/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-060/jo-37/perl/ch-1.pl b/challenge-060/jo-37/perl/ch-1.pl index e26be8cafa..48c0f9d032 100755 --- a/challenge-060/jo-37/perl/ch-1.pl +++ b/challenge-060/jo-37/perl/ch-1.pl @@ -40,7 +40,7 @@ my $last = chr(ord('A') + BASE - 1); # build example input data if none provided unless (@ARGV) { @ARGV = - map {((BASE ** ($_ + 1) - 1)/(BASE - 1) - 1, $last x $_)} (1 .. 14); + map {((BASE**($_+1) - 1)/(BASE - 1) - 1, $last x $_)} (1 .. 14); } for (@ARGV) { |