diff options
| -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) { |