From 9fd0c36e3e3f0303bc53dc8bf86802e025307b9e Mon Sep 17 00:00:00 2001 From: brxfork Date: Mon, 11 Jul 2022 18:04:45 +0200 Subject: simple one-liner showing the first wrong digits --- challenge-173/brxfork/perl/ch-1.sh | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100755 challenge-173/brxfork/perl/ch-1.sh 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) -- cgit