diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-07-13 00:21:09 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-07-13 00:21:09 +0100 |
| commit | 19dc1a9ffa429120ab4c0db2318b5885c8e5fb1a (patch) | |
| tree | 454fb81466c37d033b0e9b0a9561ffcdf8f062ca | |
| parent | b81a11fd1b7c100f6ac28d87d801da298bbcee4f (diff) | |
| parent | 9fd0c36e3e3f0303bc53dc8bf86802e025307b9e (diff) | |
| download | perlweeklychallenge-club-19dc1a9ffa429120ab4c0db2318b5885c8e5fb1a.tar.gz perlweeklychallenge-club-19dc1a9ffa429120ab4c0db2318b5885c8e5fb1a.tar.bz2 perlweeklychallenge-club-19dc1a9ffa429120ab4c0db2318b5885c8e5fb1a.zip | |
Merge pull request #6431 from brxfork/ch173
simple one-liner showing the first wrong digits
| -rwxr-xr-x | challenge-173/brxfork/perl/ch-1.sh | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-173/brxfork/perl/ch-1.sh b/challenge-173/brxfork/perl/ch-1.sh new file mode 100755 index 0000000000..b3ebcf288b --- /dev/null +++ b/challenge-173/brxfork/perl/ch-1.sh @@ -0,0 +1,10 @@ +#!/bin/sh +perl -nle 'if (/0[^1]|1[^02]|2[^13]|3[^24]|4[^35]|5[^46]|6[^57]|7[^68]|8[^79]|9[^8]/) {$a=$_;s/$&/[$&]/;print "$a is *not* an esthetic number ($_)"} else {print "$_ is an esthetic number" }' + + +#echo -e "123\n120\n5456\n987678\n123321" | perl -nle 'if (/0[^1]|1[^02]|2[^13]|3[^24]|4[^35]|5[^46]|6[^57]|7[^68]|8[^79]|9[^8]/) {$a=$_;s/$&/[$&]/;print "$a is *not* an esthetic number ($_)"} else {print "$_ is an esthetic number" }' +#123 is an esthetic number +#120 is *not* an esthetic number (1[20]) +#5456 is an esthetic number +#987678 is an esthetic number +#123321 is *not* an esthetic number (12[33]21) |