fjwhittle challenge 011 solution

2 files changed, 24 insertions, 0 deletions

diff --git a/challenge-011/fjwhittle/perl6/ch-1.p6 b/challenge-011/fjwhittle/perl6/ch-1.p6
new file mode 100644
index 0000000000..e35332670d
--- /dev/null
+++ b/challenge-011/fjwhittle/perl6/ch-1.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6
+
+my $minf = 32;
+my $maxf = 212;
+my $minc = 0;
+my $maxc = 100;
+
+# Degrees Fahrenheit can be expressed as a function of the form f(x) = ax + C where x
+# is the temperature in degrees Celsius.
+# When f(x) = x, x = C / (1 - a)
+
+say ($minf) / (1 - ($maxf - $minf) / ($maxc - $minc));
diff --git a/challenge-011/fjwhittle/perl6/ch-2.p6 b/challenge-011/fjwhittle/perl6/ch-2.p6
new file mode 100644
index 0000000000..6f99e37fb3
--- /dev/null
+++ b/challenge-011/fjwhittle/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6
+
+sub identity-matrix (UInt $n) {
+  (^$n).map: -> $i { (^$n).map: -> $j { Int($j == $i) } };
+}
+
+#| Script to create an identity matrix
+unit sub MAIN (
+  UInt $n #= Dimensions of the generated matrix.
+);
+
+.say for identity-matrix $n;