diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-05-25 13:53:12 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-25 13:53:12 +0100 |
| commit | 2691c53b2da60f1c5801a77f845326b0140dcf66 (patch) | |
| tree | 2c52ed4dcf12f9a927d31760c25b8ed31de410bd | |
| parent | 15d2cfb15c51b4299d7ee632c149721a6b5293ef (diff) | |
| download | perlweeklychallenge-club-2691c53b2da60f1c5801a77f845326b0140dcf66.tar.gz perlweeklychallenge-club-2691c53b2da60f1c5801a77f845326b0140dcf66.tar.bz2 perlweeklychallenge-club-2691c53b2da60f1c5801a77f845326b0140dcf66.zip | |
Update ch-1.pl
| -rw-r--r-- | challenge-114/mohammad-anwar/perl/ch-1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-114/mohammad-anwar/perl/ch-1.pl b/challenge-114/mohammad-anwar/perl/ch-1.pl index 55f005da9f..4d713efd9f 100644 --- a/challenge-114/mohammad-anwar/perl/ch-1.pl +++ b/challenge-114/mohammad-anwar/perl/ch-1.pl @@ -5,6 +5,5 @@ use warnings; my $N = $ARGV[0] || 1234; -do { $N++ } -until ($N == reverse split //,$N); +do { $N++ } until ($N == reverse split //,$N); print "$N\n"; |