From 909354c9a1ead36a57b95b47f60685e079c18e92 Mon Sep 17 00:00:00 2001 From: Avery Adams Date: Sun, 11 Jun 2023 21:47:50 +1200 Subject: Solution for task 1 challenge 220 for Avery Adams --- challenge-220/avery-adams/blog1.txt | 1 + challenge-220/avery-adams/blog2.txt | 1 + challenge-220/avery-adams/perl/ch-1.pl | 12 ++++++++++++ 3 files changed, 14 insertions(+) create mode 100644 challenge-220/avery-adams/blog1.txt create mode 100644 challenge-220/avery-adams/blog2.txt create mode 100644 challenge-220/avery-adams/perl/ch-1.pl 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; -- cgit