diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-06-27 03:37:33 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-06-27 03:37:33 +0100 |
| commit | eed809fbf5886f1d0e37c6f24fc35ea908cd7e07 (patch) | |
| tree | c6f1ba0a549474bc74d9846c6886adf1e9ac0486 /challenge-114 | |
| parent | 04c1559d2a516502dc459c1903fac7fc0e0e25d0 (diff) | |
| download | perlweeklychallenge-club-eed809fbf5886f1d0e37c6f24fc35ea908cd7e07.tar.gz perlweeklychallenge-club-eed809fbf5886f1d0e37c6f24fc35ea908cd7e07.tar.bz2 perlweeklychallenge-club-eed809fbf5886f1d0e37c6f24fc35ea908cd7e07.zip | |
- Applied suggestion by Dave Cross to task #1 of 114.
Diffstat (limited to 'challenge-114')
| -rw-r--r-- | challenge-114/mohammad-anwar/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-114/mohammad-anwar/perl/ch-1.pl b/challenge-114/mohammad-anwar/perl/ch-1.pl index 4d713efd9f..d914442b9b 100644 --- a/challenge-114/mohammad-anwar/perl/ch-1.pl +++ b/challenge-114/mohammad-anwar/perl/ch-1.pl @@ -5,5 +5,5 @@ use warnings; my $N = $ARGV[0] || 1234; -do { $N++ } until ($N == reverse split //,$N); +do { $N++ } until ($N == reverse $N); print "$N\n"; |