diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-20 15:32:13 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-20 15:32:13 +0000 |
| commit | c37ff1980e627f273c4767bbbb8670ad6c9e5de6 (patch) | |
| tree | 5fd6d0f34ae85f517776a6166ca2a1fbf276d352 | |
| parent | 1cea9d4bc37f0b58a5515f05b15a24f8c41d3cd3 (diff) | |
| download | perlweeklychallenge-club-c37ff1980e627f273c4767bbbb8670ad6c9e5de6.tar.gz perlweeklychallenge-club-c37ff1980e627f273c4767bbbb8670ad6c9e5de6.tar.bz2 perlweeklychallenge-club-c37ff1980e627f273c4767bbbb8670ad6c9e5de6.zip | |
- Updated more.
| -rw-r--r-- | challenge-048/mohammad-anwar/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-048/mohammad-anwar/perl/ch-1.pl b/challenge-048/mohammad-anwar/perl/ch-1.pl index 2e576227e7..fb66076660 100644 --- a/challenge-048/mohammad-anwar/perl/ch-1.pl +++ b/challenge-048/mohammad-anwar/perl/ch-1.pl @@ -3,7 +3,7 @@ use strict; use warnings; -my @people = map { $_ } (1 ..50); +my @people = (1 ..50); while (scalar(@people) > 1) { my $sword = shift @people; shift @people; |