diff options
| author | andrezgz <andrezgz@gmail.com> | 2020-03-10 09:06:37 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2020-03-10 09:06:37 -0300 |
| commit | 67bb54a14ef10e7a1a2ae17d8da3ed0d903c48b9 (patch) | |
| tree | f399ce3830a5454136124a47b42f534d2ff0ee21 /challenge-050 | |
| parent | 5c29a383be632988d6423b02003d854313a2502d (diff) | |
| download | perlweeklychallenge-club-67bb54a14ef10e7a1a2ae17d8da3ed0d903c48b9.tar.gz perlweeklychallenge-club-67bb54a14ef10e7a1a2ae17d8da3ed0d903c48b9.tar.bz2 perlweeklychallenge-club-67bb54a14ef10e7a1a2ae17d8da3ed0d903c48b9.zip | |
challenge-050 andrezgz minor fix
Diffstat (limited to 'challenge-050')
| -rw-r--r-- | challenge-050/andrezgz/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-050/andrezgz/perl/ch-2.pl b/challenge-050/andrezgz/perl/ch-2.pl index 3b5aeb5386..c006e0922c 100644 --- a/challenge-050/andrezgz/perl/ch-2.pl +++ b/challenge-050/andrezgz/perl/ch-2.pl @@ -23,9 +23,9 @@ use strict; use warnings; -my $length = shift || 3; +my $elements = shift || 3; -my @L = sort {$a <=> $b} map { int(rand(49)) + 1 } 1..$length; +my @L = sort {$a <=> $b} map { int(rand(49)) + 1 } 1..$elements; print 'List: ' . join ',', @L; my @nobles; |