From 6a9de49a1fceeb6e6c085e2dc17b91873e67e89f Mon Sep 17 00:00:00 2001
From: Alexander <39702500+threadless-screw@users.noreply.github.com>
Date: Sat, 8 Jun 2019 13:18:50 +0000
Subject: ch-1.p6

---
 challenge-011/ozzy/perl6/ch-1.p6 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-011/ozzy/perl6/ch-1.p6

diff --git a/challenge-011/ozzy/perl6/ch-1.p6 b/challenge-011/ozzy/perl6/ch-1.p6
new file mode 100644
index 0000000000..656cf2aca4
--- /dev/null
+++ b/challenge-011/ozzy/perl6/ch-1.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+
+sub T_F ( Num $T_C ) {  $T_C * (212-32)/100 + 32  }
+sub T_C ( Num $T_F ) { ($T_F - 32) * 100/(212-32) }
+
+sub MAIN (
+    Str $T #= Temperature
+)
+{
+    my $Tn = $T.Num;
+
+    printf("%7.2f degrees Celcius    is equal to %7.2f degrees Fahrenheit.\n", $Tn, T_F($Tn));
+    printf("%7.2f degrees Fahrenheit is equal to %7.2f degrees Celcius.\n", $Tn, T_C($Tn));
+}
-- 
cgit 


From 3679a03c9a70a13cf5028739ad4d15a6a562c325 Mon Sep 17 00:00:00 2001
From: Alexander <39702500+threadless-screw@users.noreply.github.com>
Date: Sat, 8 Jun 2019 13:19:30 +0000
Subject: Create ch-2.p6

---
 challenge-011/ozzy/perl6/ch-2.p6 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 challenge-011/ozzy/perl6/ch-2.p6

diff --git a/challenge-011/ozzy/perl6/ch-2.p6 b/challenge-011/ozzy/perl6/ch-2.p6
new file mode 100644
index 0000000000..346fc299d2
--- /dev/null
+++ b/challenge-011/ozzy/perl6/ch-2.p6
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl6
+#
+# Compose and print identity matrix
+#
+# Notes:
+# - "is default" trait not implemented for shaped arrays
+# - Partially dimensioned views of shaped arrays not yet implemented
+# - Could use Math::Matrix
+
+sub MAIN (Int $dim)
+{
+    my @md[$dim;$dim];
+
+    for 0..$dim-1 -> $i {
+        for 0..$dim-1 -> $j {
+            @md[$i;$j]= $i==$j ?? 1 !! 0;
+            printf "%3i", @md[$i;$j];
+        }
+    printf "\n";
+    }
+}
-- 
cgit