challenge 013 #1

4 files changed, 29 insertions, 0 deletions

diff --git a/challenge-009/feng-chang/README b/challenge-009/feng-chang/README
new file mode 100644
index 0000000000..74e56de3ed
--- /dev/null
+++ b/challenge-009/feng-chang/README
@@ -0,0 +1 @@
+Solutions by Feng Chang.
diff --git a/challenge-009/feng-chang/perl5/ch-1.pl b/challenge-009/feng-chang/perl5/ch-1.pl
new file mode 100755
index 0000000000..a883e28946
--- /dev/null
+++ b/challenge-009/feng-chang/perl5/ch-1.pl
@@ -0,0 +1,16 @@
+#!/bin/env perl
+
+use Modern::Perl;
+use List::Uniq ':all';
+
+my $n = 101;
+my $n2;
+
+while (1) {
+    $n2 = $n * $n;
+    last if @{ uniq sort split(//, $n2) } >= 5;
+
+    ++$n;
+}
+
+say "$n2 = $n * $n";
diff --git a/challenge-009/feng-chang/perl6/ch-1-one-liner.p6 b/challenge-009/feng-chang/perl6/ch-1-one-liner.p6
new file mode 100755
index 0000000000..7699bd89c8
--- /dev/null
+++ b/challenge-009/feng-chang/perl6/ch-1-one-liner.p6
@@ -0,0 +1,4 @@
+#!/bin/env perl6
+
+my $n = (101 ... *).map({ $_ if ($_ * $_).comb.unique.elems >= 5 }).[0];
+say $n * $n, " = $n * $n";
diff --git a/challenge-009/feng-chang/perl6/ch-1.p6 b/challenge-009/feng-chang/perl6/ch-1.p6
new file mode 100755
index 0000000000..1039d77b3d
--- /dev/null
+++ b/challenge-009/feng-chang/perl6/ch-1.p6
@@ -0,0 +1,8 @@
+#!/bin/env perl6
+
+for (101 ... *) -> $n {
+    my int $n2 = $n * $n;
+    last if $n2.comb.unique.elems >= 5;
+
+    LAST { say "$n2 = $n * $n" }
+}