diff options
| -rw-r--r-- | challenge-220/avery-adams/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-220/avery-adams/blog2.txt | 1 | ||||
| -rw-r--r-- | challenge-220/avery-adams/perl/ch-1.pl | 12 |
3 files changed, 14 insertions, 0 deletions
diff --git a/challenge-220/avery-adams/blog1.txt b/challenge-220/avery-adams/blog1.txt new file mode 100644 index 0000000000..d39506927d --- /dev/null +++ b/challenge-220/avery-adams/blog1.txt @@ -0,0 +1 @@ +https://dev.to/oldtechaa/perl-weekly-challenge-220-ive-seen-these-characters-round-these-parts-1ml diff --git a/challenge-220/avery-adams/blog2.txt b/challenge-220/avery-adams/blog2.txt new file mode 100644 index 0000000000..ff9808f955 --- /dev/null +++ b/challenge-220/avery-adams/blog2.txt @@ -0,0 +1 @@ +https://blogs.perl.org/users/oldtechaa/2023/06/perl-weekly-challenge-220---ive-seen-these-characters-round-these-parts.html diff --git a/challenge-220/avery-adams/perl/ch-1.pl b/challenge-220/avery-adams/perl/ch-1.pl new file mode 100644 index 0000000000..0472f7d156 --- /dev/null +++ b/challenge-220/avery-adams/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +use strict; +use v5.24; + +my @results; +my $first_word = shift; +for my $letter (split(//, $first_word)) { + push(@results, lc($letter)) if (grep {$_ =~ /$letter/i} @ARGV) == @ARGV; +} +@results = sort @results; +say $_ foreach @results; |