solutions for challenge-033

2 files changed, 42 insertions, 0 deletions

diff --git a/challenge-033/prajith-p/perl5/ch-1.pl b/challenge-033/prajith-p/perl5/ch-1.pl
new file mode 100644
index 0000000000..03d80007fc
--- /dev/null
+++ b/challenge-033/prajith-p/perl5/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw<say>;
+
+my %c = ();
+
+sub C {
+    my $file = shift;
+    open(my $fh, '<', $file) or warn $!;
+    while (my $line = <$fh>) {
+        my @words = map { $c{lc($_)} += 1 } grep { m/[a-zA-Z]/ } split(//, $line);
+    }
+    close($fh);
+}
+
+C($_) for (@ARGV);
+
+say $_ . ':' . $c{$_} for 'a'..'z';
diff --git a/challenge-033/prajith-p/perl5/ch-2.pl b/challenge-033/prajith-p/perl5/ch-2.pl
new file mode 100644
index 0000000000..7f02be72ff
--- /dev/null
+++ b/challenge-033/prajith-p/perl5/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use feature qw<say>;
+
+my $start = 1;
+my $end   = shift // 11;
+
+sub head { 
+    printf('%4s', shift) 
+}
+
+printf("%2s|", 'x');
+head($_) for ($start .. $end);
+printf "\n%2s%3s\n", "-+", "-"  x (($end * 4) + 4);
+
+for my $n ($start..$end) {
+   printf "%2s|", $n;
+   for my $x ($start..$end) {
+       printf " %3s", ( $x >= $n ) ? $x*$n : ' ';
+   }
+   print "\n";
+}