diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-20 15:27:26 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-20 15:27:26 +0000 |
| commit | 1cea9d4bc37f0b58a5515f05b15a24f8c41d3cd3 (patch) | |
| tree | bee360a684a856877604d1159796787423e722f3 /challenge-048 | |
| parent | 04d4d6d28739be3ce3b42ae01299ccb30fc70912 (diff) | |
| download | perlweeklychallenge-club-1cea9d4bc37f0b58a5515f05b15a24f8c41d3cd3.tar.gz perlweeklychallenge-club-1cea9d4bc37f0b58a5515f05b15a24f8c41d3cd3.tar.bz2 perlweeklychallenge-club-1cea9d4bc37f0b58a5515f05b15a24f8c41d3cd3.zip | |
- Updated solutions by Mohammad S Anwar.
Diffstat (limited to 'challenge-048')
| -rw-r--r-- | challenge-048/mohammad-anwar/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-048/mohammad-anwar/perl/ch-1.pl b/challenge-048/mohammad-anwar/perl/ch-1.pl index 766bb65dbd..2e576227e7 100644 --- a/challenge-048/mohammad-anwar/perl/ch-1.pl +++ b/challenge-048/mohammad-anwar/perl/ch-1.pl @@ -3,11 +3,11 @@ use strict; use warnings; -my @people = map { 'p'.$_ } (1 ..50); +my @people = map { $_ } (1 ..50); while (scalar(@people) > 1) { my $sword = shift @people; shift @people; push @people, $sword; } -($people[0] =~ /p(\d+)/) && print "Survivor is at position $1\n"; +print "Survivor is at position $people[0]\n"; |