Merge pull request #12134 from ysth/challenge-324-ysth

challenge 324 idiomatic perl solutions by ysth

3 files changed, 20 insertions, 0 deletions

diff --git a/challenge-324/ysth/blog.txt b/challenge-324/ysth/blog.txt
new file mode 100644
index 0000000000..231462af66
--- /dev/null
+++ b/challenge-324/ysth/blog.txt
@@ -0,0 +1 @@
+https://blog.ysth.info/idiomatic-perl-solutions-to-the-weekly-challenge-324/
diff --git a/challenge-324/ysth/perl/ch-1.pl b/challenge-324/ysth/perl/ch-1.pl
new file mode 100644
index 0000000000..c651d332c0
--- /dev/null
+++ b/challenge-324/ysth/perl/ch-1.pl
@@ -0,0 +1,12 @@
+use 5.036;
+
+@ARGV = qw(2 2 1 2 3 4) unless @ARGV;
+my ($r, $c, @ints) = map int, @ARGV;
+unless ($r >= 0 && $c >= 0 && @ints == $r * $c) {
+    die "expected count of rows, count of columns, and list of that many integers\n";
+}
+
+my @out = map [splice @ints, 0, $c], 1..$r;
+
+use Data::Dumper;
+say Data::Dumper->new([$_])->Terse(1)->Indent(0)->Dump for @out;
diff --git a/challenge-324/ysth/perl/ch-2.pl b/challenge-324/ysth/perl/ch-2.pl
new file mode 100644
index 0000000000..3e5b873305
--- /dev/null
+++ b/challenge-324/ysth/perl/ch-2.pl
@@ -0,0 +1,7 @@
+use 5.036;
+use List::Util 'sum';
+
+my @ints = grep !/\D/a, @ARGV;
+die "expected list of integers\n" if @ints != @ARGV;
+
+say sum map eval, glob 0 . join '', map "{^$_,}", @ints;