Joelle's solutions to 33.1 in Raku & Perl

2 files changed, 45 insertions, 0 deletions

diff --git a/challenge-033/joelle-maslak/perl5/ch-1.pl b/challenge-033/joelle-maslak/perl5/ch-1.pl
new file mode 100755
index 0000000000..85565ee146
--- /dev/null
+++ b/challenge-033/joelle-maslak/perl5/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use v5.16;
+use strict;
+use warnings;
+
+# We define letters as graphemes in any language supported by Perl that
+# match the Alpha class.  We display how many times each grapheme
+# appears in the files.
+
+MAIN: {
+    my %letters;
+    while (<<>>) {
+        s/\P{Alpha}//gms;
+        for my $char (split //) {
+            $letters{fc $char}++;
+        }
+    }
+
+    for my $key (sort keys %letters) {
+        say "$key: " . $letters{$key};
+    }
+}
+
diff --git a/challenge-033/joelle-maslak/perl6/ch-1.p6 b/challenge-033/joelle-maslak/perl6/ch-1.p6
new file mode 100755
index 0000000000..ff8a76589a
--- /dev/null
+++ b/challenge-033/joelle-maslak/perl6/ch-1.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl6
+use v6;
+
+# We define letters as graphemes in any language supported by Raku that
+# match the <alpha> class.  We display how many times each grapheme
+# appears in the files.
+
+sub MAIN(+@filenames) {
+    my %letters;
+    for @filenames -> $fn {
+        my @chars = $fn.IO.lines.comb: /<alpha>/;
+        for @chars -> $char {
+            %letters{$char.fc}++;
+        }
+    }
+
+    for %letters.keys.sort -> $key {
+        say "$key: {%letters{$key}}";
+    }
+}
+
+