diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-06-12 04:16:37 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-06-12 04:16:37 +0100 |
| commit | bc0b9f9960ccbdc826d1cfaf0a38692d2de8cb4b (patch) | |
| tree | 84b42f303071c07b028c07b05f53e4ab184af9bc /challenge-220 | |
| parent | c42e1fbc071e76752378d341c079c0f30eb6d37d (diff) | |
| parent | 909354c9a1ead36a57b95b47f60685e079c18e92 (diff) | |
| download | perlweeklychallenge-club-bc0b9f9960ccbdc826d1cfaf0a38692d2de8cb4b.tar.gz perlweeklychallenge-club-bc0b9f9960ccbdc826d1cfaf0a38692d2de8cb4b.tar.bz2 perlweeklychallenge-club-bc0b9f9960ccbdc826d1cfaf0a38692d2de8cb4b.zip | |
Merge pull request #8208 from oldtechaa/avery-adams
Solution for task 1 challenge 220 for Avery Adams
Diffstat (limited to 'challenge-220')
| -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; |