Solution to week 8 challenge 1 in P5 & P6

2 files changed, 38 insertions, 0 deletions

diff --git a/challenge-009/joelle-maslak/perl5/ch-1.pl b/challenge-009/joelle-maslak/perl5/ch-1.pl
new file mode 100755
index 0000000000..f91e6c8553
--- /dev/null
+++ b/challenge-009/joelle-maslak/perl5/ch-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+use v5.24;
+use strict;
+use warnings;
+
+#
+# Copyright (C) 2019 Joelle Maslak
+# All Rights Reserved - See License
+#
+
+# Turn on method signatures
+use feature 'signatures';
+no warnings 'experimental::signatures';
+
+use List::Util qw(uniqnum);
+
+while (1) {
+    state $num = 99;
+    $num++;
+
+    my $square = $num * $num;
+    next if (join '', sort split '', $square) ne (join '', uniqnum sort split '', $square);
+
+    say $square;
+    exit;
+}
+
diff --git a/challenge-009/joelle-maslak/perl6/ch-1.p6 b/challenge-009/joelle-maslak/perl6/ch-1.p6
new file mode 100755
index 0000000000..0c6aff3fde
--- /dev/null
+++ b/challenge-009/joelle-maslak/perl6/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+#
+# Copyright © 2019 Joelle Maslak
+# All Rights Reserved - See License
+#
+
+my $seq = (0..∞).map( *² ).grep( { .comb.sort eq .comb.unique.sort } ).grep( *.chars ≥ 5 );
+say $seq[0];
+